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المقدمة 
تستخدم أنظمة الحواسيب بصورة أساسية في معالجة البيانات وعليه فإن طريقة تنظيم هذه 
البيانات تؤثر على سرعة المعالجة حيث أن سرعة المعالجة للبيانات والحصول على النتائج يعتبر 


من المتطلبات الأساسية في أنظمة الحواسيب . وأيضاً تنظم هذه البيانات يؤثر على مدى 
استقلال الذاكرة الرئيسية في أنظمة الحاسوب يجب أن يكون مرتفع إلى حدما . 


مقدمة إلى تراکب الببانات:- 


المعلومات والبيانات :- 


تعرف البيانات على أنها مجموعة من الحقائق والأفكار التي لم يتم معالجتها وتعرف بأنها المادة 
الخام للمعلومات » وحتى تصبح البيانات معلومات لابد أن تعالجهذه البيانات بطريقة معينة لتعطي 
بيانات ذات فائدة معينة تسمي بالمعلومات » تمتاز المعلومات عن البيانات في أنها مرتبة » مصنفه 
ملخص وذات فائدة معينة . 

من أهم العمليات التي يمكن استخدامها لمعالجة البيانات نذكر مايلي :- 


. تجميع البيانات من مصادرها المختلفة‎ -١ 

. التحقق من صحة البيانات‎ -٣ 

. ترميز البيانات والتأكد من صحة الترميز‎ -٣ 

-٤‏ تخزين البيانات على وسائط تخزين تمتاز بالسعة العالية ويسهولة استرحام البيانات منها 
وسرعة الوصول إليها . 

ه- ترتيب وتنظيم البيانات في هياكل بيانات محددة لتسهل عملية فهم ودراسة البيانات . 

. العمليات الحسابية والمنطقية التي تتم على البيانات باستخدام العلاقات المختلفة‎ -٠ 

۷- فرز أو دمج البيانات معا . 

۸- كتابة التقارير المختلفة من البيانات التي تمت معالجتها . 


وأكثر ما يهمنا هنا تنظيم البيانات في هياكل بيانات محددة . فماذا نقصد بهياكل البيانات ؟ ما هي 
أنواع هياكل كل البيانات ؟ 
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الهيكلية خاصية من خصائص البيانات :- 


افا تجو ان ال شعاد ا دوع فا ت فقنة لقعا ت فر الفا الو اة 
الا ناء وتعطم هة الضقات طا مكل اني منظة. 


فمتلاً أن أسماء أفراد العائلة تنتظم تحت بناء يشبه الشجرة "۲66" . حيث يعبر الجد عن الجذر 
فيها والأبناء عن الفروع وكذلك الأحفاد وهكذا . 


وكمثال آخر ينتظم الناس في طابور لشراء حاجة ما يعبر الواقف أولاً عن رأس الطابور والأخير عن 
ذيل الطابور ودليل التلفون وغيرها من الأمتله . 


گل هده الاك ف لا حه واخ في أت المطوفات ار اريت فا الد ف 
بالھيكل أو هياكل البيانات "data structure"‏ . 


ومن هنا نلخص الى تعريف هيكل البيانات » حيث أنه تشكيل منظم لمجموعة من البيانات التي 


ويمكن أن نجد هذا التشكيل المنظم في الأمثلة التي سقناها سابقاً فمتلاً » أن دليل التلفون يضم 
في كل صفحة من صفحاته عمودين أحدهما يدل على أسماء أشخاص معينين » أو مؤسسات أو 
هيئات محددة والعود الأخر يدل على أرقام الهواتف التي يملكها الأفراد أو المؤسسات أو الهيئات 
الموجودة في المعود الأول . 


كفل هذ الفشكل المتظم هريت العموة الأول انتخا وذلك لتم مل كملة المخف عن رة أ 


إن هيكل البيانات ضروري لمعالجة البيانات نظرآً لما تتمتع به هیاكل البيانات من مميزات تساعد 
في الإسراع في الوصول إلى البيانات ومعالجتها » فمثلاً استخدام المؤشرات في هياكل البيانات 
يساعد في عملية الحذق والإضافة » فحذف عنصر معين من الهيكل لا يؤدي إلى إعادة ترتيب 
الفاض الا كرك وركفف أخاء عمكة التعدل قلي المت وكدلك الخال بالنسة الإ هاةة: 
انوت آکر دوک خط عاضو الماات الول ال جد في ماك اة وك فط اها 
مؤشر للعنصر بحيث يشير هذا المؤشر إلى موقع العنصر التابع في الهيكل مما يؤدي إلى الإسراع 
كن نفد كافة عطانات المفالخة لهذة القتاضر : قوف نتاول لأخقا هذة الأشتاء باسهان:: 


كما أسلفنا قان عمة تجفتع البيانات فى اكل سختافة تؤذى إلى الإسراع قي قملات 
المعالجة فإن طريقة التخزين تلعب هي الأخرى دوراً هاما في زيادة سرعة المعالجة لهذا لا بد من 
الإشارة إلى التركيب الفيزيائي والتركيب المنطقي للبيانات . 

ایال الفائات کانه مطل وجو را مھ اض لھا لھ کے ان کوت وچو فی الذاکة 
الرئيسية أما البيانات فيمكن أن توجد على وسط تخزين خارجي " وحدة إدخال " يتم نقلها جزءاً 
إلى الذاكرة الرئيسية بقراءتها ومن ثم معالجتها . 


وكما هو معروف فإن الذاكرة الرئيسية تنقسم إلى خلايا معنوية وتعتمد سرعة الوصول إلى 
المقلؤمات على طركة الفتوة الممككدذهة : أا بالتمةة للفامل لفان قات سرعة الوضول أل 
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الفعالفمات لإخضارها فة على رة الوط الفخزنة عة ۽ ما ها توه ها هو الفلل هى 
وق فال المكلومات من الذا كن الرزمة ووخدذاة الاكخال و لاكراخ ولن الاد قن الا إل 
التركيب الفيزيائي والمنطقي للبيانات » حيث يبين التركيب الفيزيائي الشكل المخزنة به البيانات 
غلى مخذات الفخزين اقانوة وسسمى هذا الشكل:بالوخدة القترباتة آما فخدة اليانات "الكل 
فل "شخي دالفخدة الفتطفة د وسوف وة هذا ف غلا الماك آلال:: 


لنفرض أن ملف الطلاب يتكون من ٠٠٠١‏ سجل وأن معدل التكتل يساوي ه (عدد السجلات في 
الكتلة الواحدة = ه سجلات ) على فرض أن الملف مخزن على قرص مغنطيسي . لهذا ينظر إلى 
الكتل " ك)عهاط " على أنها وحدات فيزيائية أما السجل داخل الكتل " )٤اط‏ " فينظر إليه كوحدة 


واستخدام الوحدات الفيزيائية في المعالجة يؤدي إلى زيادة السرعة في المعالجة وذلك بالتقليل 
من عمليات القراءة فيدلا من قراءة خمسة سجلات " وحدات منطقية " يتم قراءة وحدة فيزيائية 
واحدة حيث تنتقل هذه الوحدة الفيزيائية مرة واحدة إلى الذاكرة الرئيسية وتخزن هناك في مناطق 
تسمي بمناطق التخزين المؤقتة " ١۴6ألاط‏ " حيث يتم نقل وتبادل المعلومات إلى داخل الذاكرة 
الرئيسية وعملية التبادل هنا تأخذ وقت أقل . 


ولزيادة سرعة المعالجة يمكن تنظيم طابور " عuاعا¶‏ " من مناطق التخزين المؤقتة " عuعu¶‏ 
buffer‏ " إذا كان حجم الذاكرة يسمح بذلك . 


أنواع هياكل البيانات :- 


تنقسم هياكل البيانات إلى نوعين محددين هما ۰ ھياكل بيانات liبتة‏ " Static data structUr‏ " 
وهیاكل متغيرة " Dynamic data s۲۲‏ " وذلك تبعاً لثبات حجم البیانات أو تفیرها . 


أا هال ل الات الكاهة فی الك الم وة مى اا كل الى تخوت على دفي الكاض 
الأحدةة : تخت لأ ند هذا الفرد بالأفافة ولا تقض بالحنفى خخ أن كلا العماتن كر ةةة 


بهما وتمتاز بعيوب عدة أهمها :- 


ضرورة توفير العدد اللازم والمتتابع من مواقع الذاكرة لتخزين عناصر الهيكل . 
عدد المواقع المخصصة للهيكل ثابتة ولا تتفير . 
" سرعة المعالجة بطيئة وخاصة سرعة تنفيذ عمليات الإضافة والحذف والتي تعتبر من أكثر 
العمليات المنفذه على هيكل البيانات حيث يصاحب تنفيذ هذه العمليات تنفيذ عمليات 
التحريك اللازمة للبيانات . 
بينما نجد في هياكل البيانات المتغيرة تغييرآً في حجمها وذلك لإمكانية الإضافة والحذف فيها » مع 
تطور أنظمة الحاسوب أصبح بالإمكان معالجة عناصر الهيكل باستخدام المؤشرات " كع" أمم " 
وبالتالي ظهرت مفاهيم هياكل البيانات الديناميكية » إن اسخدام هذه الهياكل لتنظيم البيانات أدي 
إلى التخلص من الكثير من العيوب المصاحبة لإستخدام الهياكل الثابتة وتوفر الهياكل الديناميكية :- 


د سرفة مفالحة غالية . 
استفلال الذاكرة بشكل أفضل إذ ليس بالضرورة توفير مواقع متتابعة في الذاكرة الرئيسية 


لتخزين عناصر الهيكل . 
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. حجم الهيكل الديناميكي غير تابت ويعتمد فقط على حجم الذاكرة المتوفر‎ ١ 


تستخدم في عملية تنظيم البيانات هياكل مختلفة " سواء كانت ثابته أو ديناميكية " ولكل هيكل 
من هذه الهياكل تطبيقاته المختلفة وطرق معالجه خاصة به » وعليه سوق نطلع القارئ في هذا 
الكتاب على هياكل البيانات المختلفة مركزين بذلك على :- 

مفهوم الهيكل . 

* خوارزميات عمليات معالجة الهيكل وتنفيذها . 


الشكل التالىي يبين تقسيمات هياكل البيانات المخلفة :- 


هیاکل البيانات 


2 Table Record Array Alphabet 
الملفات المكدسه الصف‎ 
Queue Stack Files 


Graph Tree 


الوحدة الأولى 


السلاسل والمصخوفات 
Strings & Arrays‏ 
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( Strings & Arrays ) ak ãËHPKsÊ k 


تعتبر السلاسل الرمزية والمصفوفات من الهياكل التابتة ٤"‏ أأةاء "ولهذه الهياكل تطبيقات متعددة 
في معالجة البيانات ونظرآً لأهمية هذه الهياكل فقد خصصنا هذه الوحدة لعرض مفهوم هذه 
الهياكل وكيفية تحويلها من هياكل تابته "ة5 " الى هياكل متحركة " d2٤‏ " . 


-: S؟†ا٣آ السلاسل وہ‎ ) ٠-١( 

السلسلة عبارة عن مجموعة من الرموز فمتلاً : 
ABCDEF‏ 

1234567 

+-*/ = 

THES IS ASTRING 

&5{ABCDEH! 


فا عن اف وة فة ون أه القملات الى كى ةة علي السلاسل مالف 


-١‏ التخصيص (i۳۵۸۲وءء۸)‏ سلسلة في سلسة أخری فمثلاً 5۲۴۸2 =: 51۴۸1 یتم نسخ 
محتوي السلسلة "51۸2 " في "51۸1 " بدون أن يتغیر محتوي "51۸2 " . 

-٣‏ الدمج )Cncatenati¬(‏ حیث یتم دمج محتوی سلسلتين لإعطاء سلسلة جديدة » فمتثلاً 
دمج السلسلة ۸8٤٣"‏ " والسلسلة D۴۴"‏ " لنعطي lالlwلlwة ABCDEF"‏ " . 

> البحث (9و”iاPatternmatc) حيث يتم البحث عن تكرار سلسلة في سلسلة أخرى‎ -٣ 
. ۸ ابتداء من الموقع‎ " MODERN BASE" تتكرر في السلسلة‎ " B۸5۴" فمثلاً السلسلة‎ 

-٤‏ تجزئة السلسلة (ك١أةا#مه‏ و١ا٣اSukbs)‏ حيث تحدد السلسة الفرعية بتحديد أول موقع 
وأخر موقع في السلسة ه - ۸ في السلسلة "This is the first program"‏ lwlwة‏ 
فرعية () . ۹ 

ه- الادخال (١٥10امكم1)‏ حيث يتم إدخال رمز أو سلسلة فرعية وذلك بتحديد الموقع فقي 
اللسلسلة الاصلية . فمثلاً لإدخال "اكإأ۴" في السلسلة " jag " This is the program‏ 
الموقع ١١‏ تظهر السلسلة الجديدة كمايلي : " Og/aMںpD This is the first‏ ". 

-٦‏ الحذف (١٥اامام0)‏ حيث يحدد الرمز أو السلسلة الفرعية المراد حذفها من السلسلة 
الأصلية وذلك بمعرفة أول موقع للسلسلة الفرعية المراد حذفها. 
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تحزين lwJlاJw‏ " String Storage‏ " :- 
وسوف نستعرض تلات طرق لتخزين السلاسل : 


أ فة الال ذات الطول الايت. 
طرة ادام الخدال المتفة 
٢‏ طريقة القؤائم المتصلة: 


Fixed length string method: تJبlتل|l طريفقة السلاسل ذات الطول‎ -١ 


في هذه الطريقة يحجز لكل سلسلة عدد محدد من المواقع في الذاكرة وتخزن رموز السلسلة 
في هذه المواقع وفي حالة وجود مواقع فائضة فإنها تخزن بالفراغ ولا يمکن استخدامها من قبل 
سلسلة أخرى » وتعتبر هذه الفراغات إحدى مساوئ هذه الطريقة إذا أنها تؤدي إلى مضيعة 
الذاكرة وعدم إستغلالها بصورة متالية . 


عملية الإضافة : Insertion‏ 
عند إجراء عملية إضافة سلسلة في سلسلة أخرى نتبع الخطوات التالية : 


جب أت لا ند طول اة المفافة والم فة الأطلة فلى طول التاة الأضة 
دة الموقة " النذاية " الفراة ا خراء عة الأخافة دة : 
قم ازا عاض الماعاة الا صلة لمن فكلك ادمان كاضر السلة الهراة 
إضافتها . 
لو فرضنا أننا نريد إدخال السلسلة ( ) في السلسلة التالية ومن الموقع السابع : 


& DD d Dû EËEë Ë ë ëËC ëË ëD td ED td 8 


A MMA N CA TILAK Û es 


0 


Pos 
: فإنه لابد من إحراء مایلی‎ 


. )13 +2 >= 30( التحقق من إمكانية الإضافة‎ -١ 
تنفيذ الإضافه‎ 
.|=13 اجعل‎ -٣ 
إزاحة العنصر المشار اليه ب ¡ مسافه مساوية لطول السلسلة المضافة.‎ -٣ 
Str(i+2):=Mast(i); 
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“٤‏ طرخ واحذ من أ (1- = ¡) وتكرر الخطوة () ما ذامت (5هم = < ا). 
ف فل الخطواة هى ١‏ جع عملة لازا ٠‏ ود الاتهاء نها فوفد عة الأضافة 
( إضافة عناصر السلسلة الجديدة ويبدأً من الموقع (5ه۴) ). 


عملية دمج سلسلتين : Concatenati0n‏ 
تتم عملية دمج سلسلتين في سلسلة تالثة حسب الخطوات التالية : 


-١‏ يتم فحص مجموع طول السلسلتين فاذا كان أكبر من )۸١(‏ (طول السلسة الثالثة) 
فمعنى هذا آن المكان المخصص لا يفي وإلا نفذ الخطوات التالية : 
-٣‏ خزن عناصر السلسلة الأولى. 
-٣‏ خزن عناصر السلسله الثانية . 
ويمكن تمثيل هذه العملية بمخطط سير العمليات التالية حيث أن السلسلة الأولى S۲1‏ > 
السلسله الثانيه 5١2‏ . السلسلة الثالثة ۲3ا5 . 
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Length(str1) 
+ 
length(str2) 
>N 


no yes 


overflow 


Str3(i)=Str1(i) 


Str1 
yes 
i>=length 


(Str1) 


Str3(i)=Str2(i-length(Str1)) 


i>=length(S 
tr1) + 
length(Str2) 


0 . 


Index table/work space method: ةwسر—طغملا طريقة إستخدام الجداول‎ -2 


10000 


DATA STRUCTURES PASCAL Safiya Najeh 


في هذه الطريقة يتم بناء جدول البداية (عاbةا‏ أاهاS)‏ يحدد فيه بداية كل سلسلة كما يبنى جدول 
الأطوال (عاطةا ااوenا)‏ يحدد في كل مدخل فيه طول كل سلسلة من السلاسل في مصفوفة 
المساحه(ععةمء kاwoس)‏ والشكل التالي يبين هذه الجداول : 


Start Length 
۱ ۱ ۱ 1 
۲ ۷ ۲ ۳ 
۳ 1۰ ۰ O 
٤ 
9 o 
3 ۹۹ 
۱ ١ 


Str1 Str2 Str3 
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Lenked lists method: alصتملا طريقة القوائم‎ -٣ 


يمك أن تمتل السلاسل بواسطة القوائم التناثئية فكل حرف في السلسلة يوضع في عقدة 
لها مؤشرين مؤشر آمامي ومؤشر خلف ويتضح ذلك عند التطرق لهذا الهيكل من هياكل 
البيانات . 


-: Ar ٣ھء المصفوفقات‎ ) ٠-۲( 


هي عباره عن هیکل من هیاکل البيانات » وهي عباره عن مجموعه منتهیه ومرتبه من العناصر 
المتجانسه . 
فالماتات آلفى خرن اخل المضقوفة لها تروط هوا 
.١‏ أن تكون منتهيه » أي أن يكون للمصفوفه حجم معين والبيانات تكون محدده وإذا أردنا أن 
نتعامل مع المصفوفات فلا بد من تحديد حجم المصفوفه ويتم ذلك بواسطة المستخدم »› 
وهن سلساتو أن اذا تم خجر ممساخة هة المصفوفة ولم تتفل فذة المساخة مكل 
امل فلا تمكن استكلال فذة المفاخة بواسطة فير أخر وتيقى هذة المساحة قفارفة. 
.٣‏ أن البیاتات تکون مرتبه مثل ...,1,×2,×3× . 
۳. أن تكون المصفوفه متجانسه » ونقصد بالتجانس أنه لایمکن جمع بیانات مختلفه في 
أنواعها وجعلها في مصفوفة واحده » وبالتالي لابد أن تكون البيانات من نوع واحد مثل 
.Integer,real,string,...‏ 


نعني بقولنا منتهية (عاآ١أ۴‏ ) أي أن لها عدد محدود من العناصر » ومرتبة )0۲١€۲٥۵(‏ أي أن 
عناصرها مرتبة الأول فالثاني فالثالث ... وهكذا » ومتجانسة (كئuام"عوه٣هم)‏ أي أن جميع 
عناصرها من نفس النوع (۲۷۲۴€) . 


أنواع المصفوفات كممرآ :- 
لها ثلاثة أنواع :- 
-١‏ مصفوفة أحادية الأبعاد . 
-٣‏ مصفوفة تنائية الأبعاد . وهما الأكثر إستخداماً ١(‏ » ۲) . 
-٣‏ مصفوفة متعددة Jlأبعاد‏ ) Multidimensional array‏ ( . 
الصيغة ×ھ†ہ Sy‏ :- 
هنالك طريقتان للتصريح عن المصفوفات :- 


-١‏ أن تقوم بتعريف المصفوفة على أنها نوع بيانات ٥م‏ ةة . فلا بد أن يتم حجز مساحة 
لها داخل الذاكره ومن ثم نقوم بتعريف هذه البيانات (۲٥9ع†١[‏ ,۸3۲ , اةع ) » ويمكن أن 
تكون هنالك بيانات لا يوجد تعريف لها ولكن هنالك مواقع محددة في شكل البرنامج العام 
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يتم فيها التعريف عن أنواع البيا نات الجديدة في لفغة اةعكةم وذلك بواسطة الكلمة 
المحجوزة ٥م۷١‏ . 


Type 
Arrayname = Array [index] of componettype; 


- eصmصaمرraاAr‏ : إسم المصفوفة » عندما نستخدم إسم المصفوفة تصبح إسم المصفوفة 
كأنها نوع من أنواع البيانات المعرفة بلفة الباسكال . 

- >ع1!nd‏ : وهو عدد عناصر المصفوفة ولابد أن يكون من النوع الترتيبي , Baslean , C2۲‏ 
integer‏ „ 

Data type or componettype -‏ :هو نوع البیانات ‏ ولابد أن یکون نوع البیانات من 
الأنواع الأساسية المعرفة في لغة الباسكال مثل ١أ‏ , ۸۹۲ ... وإذا لم تكن معرفة فلا بد 
أن يتم نعريفها وذلك بواسطة الكلمة المحجوزة 17۷٥8‏ كما سبق ذكره » وإذا كان نوع 
البيانات من النوع 96۲عا"1 يحجز لها في الذاكرة كعأارط 10 . 


Example:- 
Type 
Matrix = array [1..5] Of integer; 
var a , b, c : Matrix; 
. مصفوفة عدد عناصرها 5 عناصر‎ : Matrix - 
وتحتوي على 5 عناصر.‎ |١96۲ ه: مصفوفة نوع بياناتها من النوع‎ - 
إسم المصفوفه هو نوع البيانات التي يتعرف عليها البرنامج في لغة اهعكة۴ لتعريف‎ - 
المصفوفات ء,ط,ة وهذه الطريقة تستخدم إذا كان هنالك عدد من المصفوفات متشابهة‎ 
أكتب متفيرات على حسب‎ ۷2١ في البيانات ومتساوية في الأحجام وفي منطقة التعريف‎ 
. عدد المصفوفات‎ 


-٣‏ تستخدم هذه الطريقة الثانية إذا كان هنالك مصفوفة واحدة ففي هذه الحالة أعرفها في 
منطقة التعريف ۷3١‏ وكذلك تستخدم هذه الطريقة إذا كان هنالك عدد من المصفوفات غير 
hoo‏ ابهة ۹ 


Var 


Arrayname : array [index] of data type; 
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Example:- 


Var 


X : array [index] of integer; 


. variable jgكSı‎ arraynameJdl ةلlحنلا في هذه‎ 


أنواع المصفوفات :- 

(۱) المصفوفة أحادية الأبعاد :- 

* سنتعرف على كيفية تخزين البيانات داخل المصفوفة وكيفية الوصول إلى البيانات لإجراء 
عمليات المعالجة ومن ثم كتابة عدد من البرامج . 

« إذا أردت أن أخزن ة0 في المصفوفة أو أخرج aأة0‏ أستخدم ٥٠ا ۴٥۲‏ » وإن عملية 
التخزين في المصفوفة عملية قائمة بذاتها وعملية الاسترجاع في المصفوفة عملية قائمة 
بذاتها فبذلك نحتاج حلقة للتخزين وحلقة للاسترجاع . وبعد المصفوفة هو الذي يحدد عدد 
الحلقات » وفي المصفوفة أحادية الأبعاد أستخدم حلقة واحدة للتخزين وحلقة ثانية للإخراج 
أو المعالجة أو الإسترجاع وكذلك أعرف متغير للإستخدام كعداد 8۲ا٣ C0۷‏ » والحلقة 
الخارجية تمثل عدد الصفوف ۲۵١۸‏ والحلقة الداخلية تمثل عدد الأعمدة ك١ص"۳دات‏ . 

« إذاآً إذا طرح عليك هذا السؤال فما هي اجابتك : كيف تخزن عناصر المصفوفة ؟ 

فالجواب هو :باستخدام حلقة 00pا Fo‏ . 


Simple Example:- 


program arrays; 
var x:array[1..5]of integer; 

i:integer; 

begin 

writeln ('enter the data of array x....'); 
for i:=1 to 5 do 

begin 

write ('enter element x[',i,']: '); 

readln (x[i]) ; 

end; 

writeln ('the data of array x is:'); 


for i:=1 to 5 do 
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write (x[i],' '); 
readln; 


end. 


Output:- 

enter the data of array x.... 
enter element x[1]: 10 

enter element x[2]: 20 

enter element x[3]: 23 

enter element x[4]: 11 

enter element x[5]: 90 

the data of array x is: 

10 20 23 11 90 


enter the data of array x.... 


X1 X2 X3 X4 X5 


س [1..5] 


X1 X2 X3 X4 X5 


10 20 23 11 90 


إذا قمنا بتعديل البرنامج السابق وجعلنا عداد حلقة ۴0١ |٠۵٠۲‏ عام ولكنه ينحصر في المدى [1..5] 
فانه کون کالتالي :- 


program arrays; 
var x:array[1..5]of integer; 

i,n:integer; 

begin 

writeln ('enter the elements number of array x....'); 


readln (n) ; 
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for i:=1 to n do 

begin 

write ('enter element x[',i,']: '); 
readln (x[i]) ; 

end; 

writeln ('the data of array x is:'); 
for i:=1 to n do 

write (x[i],' '); 

readln; 


end. 


Output:- 

enter the elements number of array x.... 
۳ 

enter element x[1]: 12 

enter element x[2]: 33 

enter element x[3]: 56 

the data of array x is: 


o1 Y؟‎ 1۲ 


Example:- 


أكتب برنامج يعمل على تخزين عناصر المصفوفة × ويقوم بجمع العناصر وطباعتها على شاشة 


program arrays; 
var x:array[1..5]of integer; 

i:integer; sum:longint; 

begin 

writeln ('enter the data of array x....'); 
sum:=0; 

for i:=1 to 5 do 

begin 
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write ('enter element x[',i,']: '); 
readln (x[i]) ; 

sum:=sum+x [i] ; 

end; 

writeln ('sumation x= ', sum) ; 
readln; 


end. 


Output:- 

enter the data of array x.... 
enter element x[1]: 10 

enter element x[2]: 2 

enter element x[3]: 1 

enter element x[4]: 20 

enter element x[5]: 3 


sumation x= 36 


قى شذة العاله قم زين العتضر الأول تم يخم لل نة وهتة الطرفة هى الأفضل ٠‏ أما الطرةة 
الثانية فهي كالتالي:- 


Sum:=0; 

For i:=1 to 5 do 
Readln (x[i]) ; 
For i:=1 to 5 do 
Sum:=sum+x [i]; 


Writeln ( 'sumation x:’ ,sum) ; 


في هذه الحالة يقوم بتخزين البيانات كلها ثم يقوم بعملية الجمع . 
أا أا كات المطاوب أعرا الخمة اة فكو الال 


3 2 
Sum= 2, ,_, xi 
Sum:=0; 


For i:=1 to 5 do 
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Begin 
Readln (x[i]) ; 
Sum:=sum+sqr (x[i]) ; 


End. 


تمرین(۱):- 
)١(‏ أكتب برنامج يخزن عناصر مصفوفة ثم يوجد عملية الإنحراف المعياري ثم يطبع عناصر 

(vi) 2‏ 3 
المصفوفة وقمية الإنحراف ا 


(۲) أكتب برنامج يعمل على تخزين عناصر المصفوفات ۸,8 ثم يقوم البرنامج بجمع هذه 
المصفوفات وتخزينها على المصفوفة € ويقوم البرنامج كذلك بإظهار بيانات المصفوفات 
الثلاثته على شاشة التنفيذ علماً بأن المصفوفات الثلاثة أحادية الأبعاد. 


حل التمرين:- 


.S 


(1) program one; 

var s:array[1..5] of integer; 
j:integer; sumationl:longint; 
sumation2,avg,sd:real; 

begin 

sumationl:=0; sumation2:=0; 

writeln ('Enter the data of array s:'); 
for j]:=1 to 5 do 

begin 

write ('Enter element s',j,' '); 
readln(s[j]); 
sumation1l:=sumationl+s [j]; 

end; 

avg:=sumationl/5; 

for j]:=1 to 5 do 
sumation2:=sumation2+s [j] -avg; 
sd:=sqrt (sqr (sumation2) ) /5; 
writeln; 

writeln ('The data of array s is:'); 


for j]:=1 to 5 do 
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write (s[]],' '); 

writeln; 

writeln ('The standard deviation is :',sd); 
readln; 


end. 


Output:- 


Enter the data of array s: 
Enter element s1 20 

Enter element s2 10 

Enter element s3 12 

Enter element s4 44 

Enter element s5 11 

The data of array s is: 

20 10 12 44 11 


The standard deviation is : 5.8207660913E-12 


(2) program two; 

type 

xy=array [1..10] of integer; 

var a,b,c:xy; 

n, j:integer; 

begin 

writeln ('Enter the data of array xy:'); 
writeln ('Enter n number:'); 
readln (n) ; 

for j:=1 to n do 

begin 

write ('Enter the element a',j,' ; 
readln(al[j]); 

end; 

writeln; 


for j]:=1 to n do 
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begin 

write ('Enter the element b',j,' '); 
readln (b[j]) ; 

end; 

for j]:=1 to n do 

c[j]:=a[j]+tb[j]; 

writeln ('The data of array a is:'); 
for j]:=1 to n do 

write (a[lj],' '); 

writeln; 

writeln ('The array of b is:'); 

for j]:=1 to n do 

write (b[j],' '); 

writeln; 

writeln ('The sumation of arrays a,b is:'); 
for j:=1 to n do 

write (c[j],' '); 

readln; 


end. 


Output:- 
Enter the data of array xy: 
Enter n number: 


Enter the element al 12 
Enter the element a2 23 


Enter the element a3 9 


Enter the element b1 33 
Enter the element b2 11 
Enter the element b3 41 
The data of array a is: 
12 23 9 

The array of b is: 

33 11 41 


The sumation of arrays a,b is: 
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45 34 50 


(۲) المصفوفة ننائية الأبعاد :- 
حتى نستطيع أن نجري عملية معالجة على هأةل معينة فلا بد من أن نكون خزنا هذه ال هة 
على ذاكرة الحاسوب على وسط تخزيني ويتم ذلك بطريقة فيزيائية . 


والوسائط التخزينية نوعان : 


چ 


-١‏ وسائط تخزين اولية . -٣‏ وسائط تخزين تانوية. 


الخطوات :- 
-١‏ تخصيص مساحة لهذا الهيكل . 
-٣‏ قبل المعالجة نخزن هذه البيانات على الذاكرة . 
-٣‏ لابد أن نحدد العنوان لل aاة0‏ حتى تجرى عملية المعالجة . 


- أولاً لابد أن نحجز مساحة على ذاكرة الحاسوب وذلك يتم بالتصريح عن المصفوفات وذلك 
يتم عن طريقة التعريف ٥م۷١‏ : 
type‏ 
matrix=array [1..30,1..30] of integer;‏ 


var x,y,zZ:matrix; 


- بتخزين المتفيرات نكون قد ضمنا مساحة داخل ذاكرة الحاسوب وكذلك العناوين » وتتعامل 
مع × على أنها مصفوفة عدد عناصرها ۹۰ عنصر ونوع بياناتها من النوع ۲٥96ع‏ ”| . 

- بهذا يكون لكل عنصر مساحة وعنوان سواء أكانت هذه العناصر في منطقة واحدة أو في 
مناطق متعددة . 

- متى ما أردت أن أتعامل مع أي مصفوفة لا أستطيع أن أصل إلى عناصرها إلا باستخدام 
0اا وتكون أعداد الحلقات على حسب بعد المصفوفه. 

- في هذه الحالة نحتاج إلى حلقتين: 


-١‏ حلقة خارجية وتحدد عدد الصفوف. 
-٣‏ حلقة داخلية وتحدد عدد الأعمدة. 
سؤال: كيف يتم تخزين عناصر المصفوفة تنائية الأبعاد ؟؟ 


أا تفر رن انات الت الأول كاملة قو انات الصف الفاتف ال خر حك وزلك دا كوت 
العذاد ١,‏ قاننا تكوت نتعامل مع الضف الأو 


for i:=1 to 3 do 


DATA STRUCTURES PASCAL Safiya Najeh 


for j]:=1 to 5 do 


وهذا يعني أنه يوجد ۲ صفوف و ه٠‏ أعمدة . 


Example:- 
نريد تخزين عناصر المصفوفة × ثم عناصر المصفوفة ۷ ثم نقوم بعملية الجمع للمصفوفتين‎ 
. 7 وإظهارها على المصفوفة‎ 


program three; 

type 

matrix=array[1..30,1..30] of integer; 
var x,y,Z:matrix; 
i,j]j],k,m1,m2,n1,n2:integer; 

begin 

writeln ('enter the demintion of array x:','m1<=30,n1<=30'); 
readln (m1,n1) ; 

writeln ('enter the data of array x:'); 
for i:=1 to m1 do 

for j]:=1 to n1 do 

begin 

write ('enter element x',i,j,' '); 
readln(x[i,j]]); 

end; 

writeln ('enter the demintion of array y:','m2<=30,n2<=30'); 
readln (m2,n2) ; 

writeln ('enter the data of array Yy:'); 
for i:=1 to m2 do 

for j:=1 to n2 do 

begin 

write ('enter element y',i,j,' '); 
readln(y[i,]]); 

end; 

if n1=mn2 then 

begin 

for i:=1 to ml do 

for j]:=1 to n2 do 

begin 

z[i,]J]:=0; 

for k:=1 to m2 do 
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z[i,j]:=z[i,j]+tx[i,k]*y[k,j]7 

end; 

writeln; 

writeln ('the data of array x is:'); 
for i:=1 to ml do 

begin 

for j]:=1 to n1 do 

write (x[i,]j],' '); 

writeln; 

end; 

writeln; 

writeln ('the data of array y is:'); 
for i:=1 to m2 do 

begin 

for j]:=1 to n2 do 

write (y[i,]j],' '); 

writeln; 

end; 

writeln; 

writeln ('the data of array Zz is:'); 
for i:=1 to m1 do 

begin 

for j]:=1 to n2 do 

write (z[i,]J],' '); 

writeln; 

end; 

end; 

readln; 


end. 


Output:- 


enter the demintion of array x:m1<=30,n1<=30 


2 
2 
enter the data of array x: 


enter element x11 12 
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enter element x12 1 
enter element x21 3 
enter element x22 5 


enter the demintion of array y:m2<=30,n.2<=30 


enter the data of array Y: 
enter element y11 4 
enter element y12 7 
enter element y21 1 
9 


enter element y22 


the data of array x is: 
12 1 
3 5 


the data of array y is: 
4 7 
1 9 


the data of array z is: 
49 93 
17 66 


- عند إجراء عملية الجمع وتخزين الناتج على المصفوفة 7 أو المصفوفة الثالثة يكون عدد 
صفوق المصفوفة الثالثة يساوي عدد صفوف المصفوفة الأولى وعدد أعمدة المصفوفة 
الثالثة يساوي عدد أعمدة المصفوفة الثانية . 
- من الممكن أن يكون عدد الصفوف من ١-ح١ه٠٠‏ صف ولايتجاوز العدد المحدد وذلك من 
سلبيات المصفوفات وهو أن مساحة المصفوفة لابد أن تحدد أولاً وأنه لايمكن تعدي الماحة 
المخزنة وأنه عندما نريد تخزين بيانات المصفوفة ثنائية الأبعاد فلابد من تحديد عدد الصفوف 
وعدد الأعمدة. 
- من الممكن أن يتم تحديد عدد العناصر على أنه ثابت اكه كالتالي:- 
Const n=3;‏ 
Type‏ 
Matrix = array [1..n,1..n] of integer;‏ 


Example:- 


program four; 
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type 

matrix=array [1..20,1..20] of integer; 
var x,y,Z:matrix; 
no,i,j],m1,m2,n1,n2:integer; 

procedure input (var x,y:matrix) ; 
begin 

writeln ('enter demintion array x:,m1<=20,n1<=20'); 
readln (m1,n1) ; 

writeln ('enter the data of array x:'); 
for i:=1 to ml do 

for j]:=1 to n1 do 

begin 

write ('enter element x',i,j,' '); 
readln(x[i,]]); 

end; 

writeln ('enter demintion array y:,m2<=20,n2<=20'); 
readln (m2,n2) ; 

writeln ('enter the data of array Yy:'); 
for i:=1 to m2 do 

for j]:=1 to n2 do 

begin 

write ('enter element y',i,j,' '); 
readln (y[i,j]); 

end; 

end; 

procedure add(var x,y,z:matrix) ; 
begin 

for i:=1 to ml do 

for j]:=1 to n2 do 
Zz[i,j]:=x[i,j]+yl[i,j]; 

end; 

procedure display (x,y, z:matrix) ; 

begin 

writeln ('the data of array x is:'); 
for i:=1 to m1 do 


begin 


DATA STRUCTURES PASCAL Safiya Najeh 


for j:=1 to n1 do 

write (x[i,]j],' '); 

writeln; 

end; 

writeln; 

writeln ('the data of array ¥ is:'); 
for i:=1 to m2 do 

begin 

for j]:=1 to n2 do 

write (yl[i,j],' '); 

writeln; 

end; 

writeln; 

writeln ('the sumation of arrays x,y is:'); 
for i:=1 to m1 do 

begin 

for j:=1 to n2 do 

write (z[i,]J],' '); 

writeln; 

end; 

end; 

begin 

writeln ('enter 1 ---> input , 2 ---> add , 3 ---> display , 4 ---> exit'); 
repeat 

writeln ('enter your choices'); 
readln (no) ; 

case no of 

1:input (x,y); 

2:add(x,y,zZ); 

3:display (x,y,z); 

end; 

until (no=4) ; 

readln; 


end. 


Output:- 
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enter 1 ---> input , 2 ---> add , 3 ---> display , 4 ---> exit 


enter your choices 


enter demintion array x: ,m1<=20,n1<=20 


enter the data of array x: 
enter element x11 12 
enter element x12 4 
enter element x21 11 
enter element x22 2 


enter demintion array ¥: ,m2<=20,n2<=20 


enter the data of array Y: 
enter element y11 9 
enter element y12 4 
enter element y21 4 
enter element y22 2 


enter your choices 
enter your choices 

the data of array x is: 
12 4 


11 2 


the data of array y is: 
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the sumation of arrays x,y is: 


enter your choices 


4 


إحراء عملية الضرب:- 

. ۷ لاحظ أننا نقوم بإدخال × و‎ -١ 

-٣‏ لابد أن نأخذ في الإعتبار أن عدد أعمدة المصفوفة الأولى تساوي عدد صفوق المصفوفة 
الثانية -شرط ضرب المصفوفات- . 

. if n1= m2 then :يJlتJl‎ igs if statement مlختۃw| لابد Îنù يتم‎ -۳ 


if n1=m1 then 


Begin 

for i:=1 to m1 do 

for j:=1 to n2 do 

begin 

Z[i,j]:=0; 

for k:=1 to m2 do 
Z2[i,j]:=z[i,j]+tx[i,k]*g[k,j]7 
end; 

end; 

else 


writeln ( 'enter n1=m2’'); 


> افلذما نون عداد الكلفة الداخلة قمة (© هذا تهنى آنه قى العموة الأول وغتدما ركون 
قيمة العداد (3) هذا تغنى أنة فى العموذ الثاني وهكذا : وغندما تكون قيمة الخلقة 


الخاركية () تنفد الكلفة الداخلىة كاملة : 
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عملية الضرب أو الجمع تعني أوتسمى عمليات معالجة. 
بالنسبة لعداد الحلقة ) : 


قةر أ الفضر الأول قى الصف الأول وضرة قى العضر الأول قى الفمو الاوك الفقانل له 
تتففهها الى الفتضد التانى قىئ الضف الأول وضرة قى الفنضر الاوك قى العموة التاتى 
الفقابل له وخففهما إلى العنصر الالت فى الضف الأول وضربة فى الفتصر الأول قىئ الحمذة 
الالك فوع فوم فن المتكوفة الخدرة قى ,الضف الأول فى الجن الال فهك آلف 
الوت والاغدة 


Example:- 


program five; 

type 

matrix=array [1..20,1..20] of integer; 
var x,y,Z:matrix; 
no,i,j],k,ml1,m2,n1,n2:integer; 
procedure input (var x,y:matrix) ; 

begin 

writeln ('enter demintion array x:,m1<=20,n1<=20'); 
readln (m1,n1) ; 

writeln ('enter the data of array x:'); 
for i:=1 to m1 do 

for j]:=1 to n1 do 

begin 

write ('enter element x',i,j,' '); 
readln(x[i,j]); 

end; 

writeln ('enter demintion array y:,m2<=20,n2<=20'); 
readln (m2,n2) ; 

writeln ('enter the data of array Yy:'); 
for i:=1 to m2 do 

for j]:=1 to n2 do 

begin 

write ('enter element y',i,j,' '); 
readln (y[i,j]); 


end; 
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procedure mult (var x,y,z:matrix) ; 
begin 

if n1=mn2 then 

begin 

for i:=1 to ml do 

for j]:=1 to n2 do 

begin 

z[i,j]:=0; 

for k:=1 to m2 do 
z[i,j]:=z[i,j]+xl[i,k]*y[k, 317; 
end; 

end 

else writeln ('enter n1=m2'); 
end; 

procedure display (x,y, z:matrix) ; 
begin 

writeln ('the data of array x is:'); 
for i:=1 to ml do 

begin 

for j]:=1 to n1 do 

write (x[i,j],' '); 

writeln; 

end; 

writeln; 

writeln ('the data of array y is:'); 
for i:=1 to m2 do 

begin 

for j]:=1 to n2 do 

write (y[i,j],' '); 

writeln; 

end; 


writeln; 


writeln ('the multiplication of arrays x,y is: 


for i:=1 to m1 do 
begin 
for j:=1 to n2 do 
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write(z[i,]j],' '); 

writeln; 

end; 

end; 

begin 

writeln ('enter 1 ---> input , 2 ---> mult , 3 ---> display , 4 ---> 
exit'); 

repeat 

writeln ('enter your choices'); 
readln (no) ; 

case no of 

1:input (x,y); 

2:mult(x,y,Z); 

3:display (x,y,z); 

end; 

until (no=4) ; 

readln; 


end. 


Output:- 
enter 1 ---> input , 2 ---> mult , 3 ---> display , 4 ---> exit 


enter your choices 


enter demintion array x: ,m1<=20,n1<=20 


enter the data of array x: 
enter element x11 2 
enter element x12 3 
enter element x21 4 
enter element x22 5 


enter demintion array ¥: ,m2<=20,n2<=20 
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enter the data of array Y: 
enter element y11 6 
enter element y12 7 
enter element y21 8 
enter element y22 9 


enter your choices 


enter your choices 


the data of array x is: 
2 3 


4 5 


the data of array y is: 
6 7 


8 9 


the multiplication of arrays x,y is: 
36 41 

64 73 

enter your choices 


4 


3K XK XK 3K 3K 3F 3K 3K 3K 3K 3K 2K 3K 3K 2K 3K 3K 3K 3K 3F 3K 3K 2K 3K 3F 3K 3K 3K 3K 3K 3K 3K 3K KF 3K 2K 5K KF 


الوحدة الغانية 


السهطالا ت 
0 


Records 
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Records تاڻlجسلl‎ 


« السجل هو هيكل بيانات ولكل هيكل طريقة معينة للتعامل معه . 

« السجلات تشابه المصفوفات في أن البيانات التي تخزن في السجلات لها علاقة مع بعضها 
البعض وهنا نتعامل مع الحقول » والحقل هو الذي تخزن فيه البيانات داخل ذاكرة الحاسوب . 

السجلات تمتاز عن المصفوفات في أنها يمكن أن تخزن بيانات مختلفة » يمكن أن نعترف كل 
حقل من نوع بيانات مختلف ويمكن تجمع بيانات مختلفة الأنواع ونضعها في سجل واحد . 

« والسجل يتكون من عدد من الحقول . 


التصريح عن السجلات:- 
٠‏ السجلات تحتاج إلى هيكل بيانات أكبر للمعالجة وفي هذه الحالة لابد أن نعرف نوع بيانات 
جديد يسمي )۲8٣0۲۵(‏ ونستخدم للتصريح عن السجلات طريقة )١۷۲8€(‏ . 

type 

recordName=record 

filed1:dataType; 

filed2:dataType; 

filed3:dataType; 


١ 


filedn:dataType; 
end; 


var variableName : recordName ; 


أي في منطقة ۷2۲ نعرف المتفير من النوع ۲60۲0١2"‏ . 


د السحلات. (ك660۲) تشبة المصفوفات قي كوتها مجموغة فن البيانات المتعلقة ببعضها 
النخض ء.وفخغلف عنما قى |مكافة اخثوانها على انات مختافة قى الثوع. 


Example:- 

type 
student=record 
name:string; 
no:integer; 
place:string; 
age:integer; 
end; 


var st:student; 


هنا نتعامل مع اء على أنه سجل وفيه خمسة حقول. 


DATA STRUCTURES PASCAL Safiya Najeh 


کیف یتم تخزین البيانات على السجلات؟؟ 
هنالك طریقتان:- 
-١‏ طريقة غەd‏ :- 


Example: recordname. fieldname ; 


. إسم المتفير الذي يمثل إسم السجل‎ :Recordname 
إسم الحقل الذي نريد أن نتعامل معه » وعملية الإخراج تكون بنفس الطريقة.‎ :۴eاdnamع‎ 


۲- طريقة طtاw‏ :- 
إذا كان هنالك سجل به عدد كبير من الحقول فعملية التكرار لإسم السجل تكون ممله 
ولكن من الممكن بإاستخدام عبارة 1اس أن يتم التعامل مع كل الحقول من دون كتابة إسم 
المتغير وإنما يتم التعامل مع الحقول مباشرة. 


Example:- 
أكتب برنامج يقوم بتخزين بيانات الطالب . علماً بأن بيانات الطالب هي : الإسم والرقم والمكان‎ 


Dot:- 

program six; 

type 

student=record 

name:string; 

no:integer; 

place:string; 

age:integer; 

type_st:string; 

end; 

var st:student; 

begin 

writeln ('enter the data of student: ') ; 
writeln ('enter student name: '); 
readln (st.name) ; 


writeln ('enter student number:'); 
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readln (st.no) ; 

writeln ('enter student place:'); 
readln (st.place) ; 

writeln ('enter student age:'); 
readln (st.age) ; 

writeln ('enter student type:'); 
readln (st. type_st) ; 

writeln; 

writeln ('the data of student is:'); 
writeln ('name:',st.name) ; 

writeln ('number:',st.no) ; 

writeln ('place:',st.place) ; 

writeln ('age:',st.age) ; 

writeln (' type_student:',st.type_st); 
readln; 


end. 


Output:- 

enter the data of student: 
enter student name: 
safiya 

enter student number : 
1 

enter student place: 
khartoum 

enter student age: 

19 

enter student type: 


female 


the data of student is: 
name:safiya 

number :1 
place:khartoum 

age:19 

type_student: female 
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with:- 

program seven; 

type 

student=record 

name:string; 

no:integer; 

place:string; 

end; 

var st:student; 

begin 

writeln ('enter the data of student: ') ; 
with st do 

begin 

write ('enter student name: ') ; 
readln (name) ; 

write ('enter student number: ') ; 
readln (no) ; 

write ('enter student place:'); 
readln (place) ; 

end; 

writeln; 

writeln ('the data of student is:'); 
with st do 

begin 

writeln ('name: ' ,name) ; 

writeln ('number:',no); 

writeln ('place:' ,place) ; 

end; 

readln; 


end. 


Output:- 

enter the data of student: 
enter student name:safiya 
enter student number : 4 


enter student place:baghadad 
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the data of student is: 
name:safiya 

number : 4 
place:baghadad 


Example:- 


أكتب برنامج يقوم بتخزين بيانات ۲ طلاب وطباعة بياناتهم على شاشة التنفيذ. 


(7; 


program eight; 

type 

student=record 

name:string; 

no:integer; 

place:string; 

end; 

var st:array[1..3] of student; 
i:integer; 

begin 

writeln ('enter the data of student: ') ; 
for i:=1 to 3 do 

with st[i] do 

begin 

write ('enter name:',' '); 
readln (name) ; 

write ('enter number:',' '); 
readln (no) ; 

write ('enter place:',' '); 
readln (place) ; 

end; 

writeln; 


writeln ('the data of student is:'); 


writeln ('name',' ', 'number', ' ','place',' 
r r 


for i:=1 to 3 do 
with st[i] do 
begin 


writeln (name, ' ',no,' ',place,' Y7 
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end; 
readln; 


end. 


Output:- 

enter the data of student: 
enter name: banan 

enter number: 3 

enter place: tunis 

enter name: haneen 

enter number: 1 

enter place: monester 
enter name: yosof 

enter number: 6 


enter place: madany 


the data of student is: 


name number place 
banan 3 tunis 
haneen 1 monester 
yosof 6 madany 
Example:- 


أكتب برنامج يعمل على تخزين سجلات ۲ موظفين ثم يقوم البرنامج بطباعة بيانات آخر موظف 
على شاشة التنفيذ مع إستفلال مساحة التخزين ومراعاتها. 
program nine;‏ 
type‏ 
employee=record‏ 
name:string;‏ 
no:integer;‏ 
age:integer;‏ 
end;‏ 
var emp : employee;‏ 
i1:integer;‏ 


begin 
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writeln ('enter the data of employee:'); 
for i:=1 to 3 do 

with emp do 

begin 

write ('enter name:',' '); 

readln (name) ; 

write ('enter no:',' '); 

readln (no) ; 

write ('enter age:',' '); 

readln (age) ; 

end; 

writeln; 

writeln ('the data of employee is:'); 
with emp do 

begin 

writeln ('name : ',name) ; 

writeln ('number:',no) ; 

writeln ('age:',age) ; 

end; 

readln; 


end. 


Output:- 

enter the data of employee: 
enter name: najeh 

enter no: 12 

enter age: 50 

enter name: fatima 

enter no: 3 

enter age: 21 

enter name: riad 

enter no: 6 


enter age: 41 


the data of employee is: 


name:riad 
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number : 6 
age:41 


في هذا المثال تم حجز مساحة تسع لسجل واحد فقط وليس لثلاثة سجلات » أما إذا كان مطلوب 
تخزين بيانات ثلاتة موظفين وطباعة بياناتهم لابد أن نستخدم مصفوفة كالتالي: 


var emp:array [1...3] of employee; 


nested record : السجلات المتداخلة‎ 


Example:- 


program ten; 

type 

brith=record 

day :integer; 
month : integer; 
year:integer; 

end; 

student=record 
name:string; 

no:integer; 
brithday:brith; 

end; 

var st:student; 

begin 

writeln ('enter the data of student: ') ; 
write ('enter name :'); 
readln (st.name) ; 

write ('enter no:'); 

readln (st.no) ; 

write ('enter brith day:'); 
write ('day:'); 

readln (st.brithday.day) ; 
write ('month:'); 

readln (st.brithday.month) ; 
write ('year:'); 


readln (st.brithday.year) ; 
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writeln; 

writeln ('the data of student is:'); 
writeln ('name:',st.name) ; 

writeln ('number:',st.no) ; 

writeln ('brithday:') ; 

writeln ('day:',st.brithday.day) ; 
writeln ('month:',st.brithday.month) ; 
writeln ('year:',st.brithday.year) ; 
readln; 


end. 


Output:- 

enter the data of student: 
enter name :safiya 

enter no:12 

enter brith day:day:13 
month : 12 

year: 1991 


the data of student is: 
name:safiya 
number : 12 
brithday: 
day:13 
month : 12 
year: 1991 
تمرین(۳):-‎ 
علماً بان بيانات‎ )٠۳P( اتب برنامج يعمل على تخزين سجلات ه موظفين على المصفوفة‎ 
الموظف هي الإسم والرقم والمرتب وتاريخ الميلاد (عبارة عن سجل حقوله هي اليوم والشهر‎ 
. والسنة) » ويقوم البرنامج بطباعة سجلات الموظفين على شاشة التنفيذ‎ 


حل التمرين:- 
program eleven;‏ 


type 
brith=record 


day:integer; 
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month : integer; 

year:integer; 

end; 

employee=record 

name:string; 

no:integer; 

salary:real; 

brithday:brith; 

end; 

var emp:array [1...5] of employee; 
i:integer; 

begin 

writeln ('the data of employee is:'); 
for i:=1 to 5 do 

with emp [i] do 

begin 

write ('enter name:',' '); 

readln (name) ; 

write ('enter number:',' '); 

readln (no) ; 

writeln ('enter brith day:'); 

write ('day:'); 

readln (brithday.day) ; 

write ('month:'); 

readln (brithday.month) ; 

write ('year:') ; 

readln (brithday.year) ; 

end; 

writeln; 

writeln ('the data of employee is:'); 
writeln ('name', ' ', 'number',' ','brithday.day',' 
','brithday.month',' ','brithday.year',' E 
for i:=1 to 5 do 

with emp [i] do 

begin 
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writeln (name, ' ',no,' ',brithday.day, ' 
',brithday.month, ' ',brithday.year, ' 7 
end; 

readln; 

end. 

Output:- 


the data of employee is: 
enter name: kamal 
enter number: 1 
enter brith day: 
day:13 

month : 3 

year: 1984 

enter name: fady 
enter number: 2 
enter brith day: 
day:19 

month : 4 

year:1995 

enter name: banan 
enter number: 3 
enter brith day: 
day :28 

month : 9 

year: 2007 

enter name: yosof 
enter number: 5 


enter brith day: 


Safiya Najeh 
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day : 82 

month : 10 

year:2009 

enter name: fatima 
enter number: 8 
enter brith day: 
day :26 

month : 3 


year: 1990 


the data of employee is: 


name number brithday .day brithday.month brithday.year 


kamal 1 13 3 1984 
fady 2 19 4 1995 
banan 3 28 9 2007 
yosof 5 82 10 2009 
fatima 8 26 3 1990 


3K XK K 3K 3K 3K 3K 3K XK 3K 2K 3K 3K 3K 3K 3K 3K 3K 3K 3F 3K 3K 2K 3K 3F 3K 3K 3K 3K 2K 3K 3K 3K 3K 5K 2K 2K 3K 5K 
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Files 
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الملغات ۶ا۴ 


هذا الهيكل مهم جدآً » والبيانات ستخزن أولاً في وسائط التخزين الأولية ثم تخزن في 
وسائط التخزين الثانوية التي تكون البيانات موجودة فيها دائماً وإذا أردنا أن نجرى عملية 
معالجة على هذه البيانات تكون موجودة وإذا قطع التيار الكهربائي تكون موجودة وذلك مثل 
القرص الصلب ()ءال .)١2۲١‏ 
هناك حزئية تقول : أن البيانات التي تخزن على وسائط التخزين الأولية إذا قطع التيار 
الكهربي (متطايرة) » أما وسائط التخزين الثانوية تبقي البيانات الموجودة بها إذا قطع التيار 
الكهربي (غير متطايرة). 

عند إستخدام الملفات في البرنامج فإن البرنامج لا يتعامل مع وسائط التخزين الثانوية 
مباشرة وإنما هنالك خطوات ستكون موجودة وهي :- 

. سنقوم بتخزين البيانات على وسائط التخزين الأولية‎ -١ 

۲- ستقوم بنقل هذه البيانات وتخزينها على وسائط التخزين الثانوية . 
وهذا يعني أن تخزين بيانات البرنامج تتم بطريقة غير مباشرة وكذلك استدعاء البيانات فإننا إذا أردنا 
أن نجرى عملية معالجة على البيانات يتم إرسال البيانات من الوسائط التانوية الى الوسائط الأولية 
ثم عملية المعالجة . 
تنقسم الملفات الى نوعين : 

-١‏ الملفات الداخلية (كعاا؟ ات١”اعاn)‏ : بها ملف يسمي الملف المنطقي (عاا؟ اةءأوما) وتكون 
بياناته موجودة على الذاكرة الرئيسية وهي وسيط تخزين أولي أي أنه يفقد محتوياته إذا 
قطع التيار الكهربي . 

(مhysicaا الملفات الخارحية (كعاا؟ اتة”اعxtع) : بها ملف يسمي الملف الفيزيائي (عاا؟‎ -٣ 
وتكون بياناته موجودة على وسائط التخزين الثانوية مثل القرص الصلب ويعني أنه لا يفقد‎ 
. محتوياته إذا قطع التيار الكهربي‎ 

يوجد خازن وسيط مؤقت وهي ذاكرة الکیبورد (۲٤۴لا8)‏ وهي التي تتعامل مع الوسائط التخزينيه 
التانوية . 
- أولاً يتمالتخزين على الملف المنطقي ويعبارة ريط نقوم بنقل البيانات إلى الملف الفيزيائي 
تم نتعرف على العبارات. 

- الملف الفيزيائي يأخذ نفس أسماء الملفات العادية الموجوده على نظام التشغيل وهذا 

الملف يكون موجود على القرص الصلب. 


للتعامل مع الملف المنطقي (١!اأ۴‏ اءأوما) هنالك عدة خطوات :- 

-١‏ إنشاء الملف المنطقي : وتأتي من التصريح عن الملف المنطقي في لغة باسكال ومن 
الممكن أن أصرح عن طريقة إستخدام الكلمة المحجوزه عم ولكن في الغالب يكون في 
منطقة التعريفات ۷۹۲ . 


var logicalFileName : file of dataType; 
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-۲ 


-۳ 


Example:- 


Var F : file of integer; 


: للربط هي‎ 
Assign (logicalFileName, 'c:\physicalFileName.dat') ; 


Example:- 


Assign (f, 'c:\student.dat') ; 


: هي المنطقة التي نريد فيها حفظ الملف الفيزيائي على الذاكرة التانوية » وإذا كان 
الملف ٣ع d‏ لاء غير موحود فان هذه العبارة ' امك ٤.‏ ”stude\:ء'‏ ستمكننا من إنشاء 
الملف » أما إذا كان الملف موجود فإنه سيقوم بعملية الربط مباشرة » وعبارة ١9أككئج‏ 
تضمن لنا إنشاء الملف إذا لم يكن موجود. 
إستخدام الملف الفيزيائي :- 
- يفتح الملف الفيزيائي إما بغرض الكتابة عليه أو بغرض القراءه منه أو الإضافه عليه. 
- إذا فتح الملف () بغرض القراءة منه كذلك يفتح الملف (أ٣عu4ء)‏ للقراءة منه بواسطة 
عملية الربط. 
- للكتابة على الملف الفيزيائي يتم إستخدام العبارة التالية : 

rewrite (logicalFileName) ; 


rewrite (f) ; 


هنا يفتح الملف الفيزيائي للكتابة عليه وكذلك الملف المنطقي » وعبارة ۴# ۲6W‏ تعني أن 
ينتقل الكيرسل اعك۲ة» إلى بداية الملف » وكذلك عند فتح الملف الفيزيائي للكتابة علية 
يعني هذا مسح البيانات السابقة الموجوده عليه . 


يمكن أن يكون هنالك ملف فيزيائي فتح وکتبت عليه بیانات ثم انتهی التعامل معه وبعد 
ذلك أراد المستخدم أن يتعامل مع هذا الملف مرة ثانية ليطبع البيانات الموجوده عليه على 
شاشة التنفيذ » فإن ذلك يتم لهذه العبارة : 
reset (logicalFileName) ;‏ 
reset(f);‏ 
وعندما نقوم بكتاية هذه العبارة لابد من معرفة هل أن الملف إنتهى أم لا » وذلك ينتهي 
بواسطة الدالة عا گە end‏ وتکتب JlÛتJlي‏ : eof (logicalFileName)‏ . 


وان كفا فطع تخر هة العاتات على املف الط »وى آخو كف 
تن فل الات اللي الى الى الولف الفا س 


الجواب: يتم ذلك بإستخدام العبارة التالية : 
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write (logicalFileName , variableName) 


. هو المتغير المراد نقل قيمته إلى الملف الفيزيائي‎ :اariabاeN‎ ame 


write (f,x) 
: وللإضافة للملف الفيزيائي يتم إستخدام العبارة التالية‎ - 
append (logicalFileName) ; 
append (f) ; 
: وإذا أردنا أن نكسر الرابط بين الملف المنطقي والملف الفيزيائي يتم ذلك بهذه العبارة‎ - 
Cloce (logicalFileName) ; 
Cloce (f); 


Example:- 


أكتب برنامج يعمل على تخزين 3 أعداد صحيحة على ملف فيزيائي یسمی ۸۲896۲.۵۵| ثم يقوم 
البرنامج بطباعة بيانات الملف الفيزيائي على شاشة التنفيذ. 


program tweleve; 

var f:file of integer; 
x,i:integer; 

begin 

assign (f, 'c:\integer.dat') ; 
rewrite (f) ; 

for i:=1 to 3 do 
begin 

writeln ('enter the value you longg wand add to phsical file:'); 
readln (x) ; 

write (f,x); 

end; 

reset(f); 

read(f,x) ; 

write (x,' '); 

while not eof(f) do 
begin 

read(f,x) 7; 

write(x,' '); 

end; 

close(f); 

readln; 


end. 
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Output:- 

enter the value you longg wand add to phsical file: 
12 

enter the value you longg wand add to phsical file: 
4 

enter the value you longg wand add to phsical file: 
6 


12 4 6 


Example:- 


أكتب برنامج يخزن عدد من الأعداد الموجبة على ملف فيزيائي إسمه .ا۵٠۲‏ ويتوقف البرنامج 
يإدخال القيمة (صفر) ومن ثم يقوم البرنامج بطابعة الملف على شاشة التنفيذ. 


program therteen; 

var f:file of real; 

x:real; 

begin 

assign (f, 'c:\real.dat'); 
rewrite (f) ; 

writeln ('enter x number:') ; 
readln (x) ; 

while (x<>0) do 

if x>0 then 

begin 

write (f,x); 

readln (x) ; 

end 

else writeln ('enter number>(0:'); 
readln (x) ; 

reset(f); 

read(f,x) ; 

write (x, ' 7 


while not eof(f) do 


DATA STRUCTURES PASCAL Safiya Najeh 


begin 
read(f,x) ; 
write (x,' '); 
end; 

close(f); 
readln; 


end. 


Output:- 
enter x number: 
12 


4 


0 


1.2000000000E+01 4. 0000000000E+00 6. 0000000000E+00 5.4000000000E+01 
33 


000000000E+01 


تمرین(3):- 
-۱١‏ اکتب برنامج يعمل على تخزین سجلات 5 موظفين على ملف فيزياثئي اة . عمعمyهامصع‏ 
ومن تم يقوم البرنامج بطباعة سجلات الموظفين (بيانات الملف أةل . ع#عمyهامصع)‏ على 
شاشة التنفيذ علماً بأن بيانات الموظف هي (اللإسم » الرقم » العنوان » المرتب) . 
-٣‏ مستفيدآً من البرنامج الأول قم بتخزين سجلات الموظفين في ملفين منفصلين (1,۴2؟)ء 
الملف (1عع۷هام"ع) يخزن سجلات الموظفين الذين تقل مرتباتهم عن ألف دينار والملف 
(2ععoyامemp)‏ يخزن بقية الملفات تم قم بطباعة السجلات الثلاتة على شاشة التنفيذ. 


حل التمرين:- 
program fourteen;‏ )1( 

type 

employee=record 

name:string; 


no:integer; 
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','salary'); 


',salary) ; 


address:string; 

salary:real; 

end; 

var f:file of employee; 
i1:integer; emp: employee; 
begin 

assign (f, 'd:\employee.dat') ; 


rewrite (f) ; 


writeln ('enter the data of employee:'); 


0)7 


','address',' 


',address,' 


for i:=1 to 5 do 

with emp do 

begin 

write ('enter name:',i); 
readln (name) ; 

write ('enter number: ') ; 
readln (no) ; 

write ('enter address:'); 
readln (address) ; 

write ('enter salary:'); 
readln (salary) ; 

write (f,emp) ; 

end; 

writeln ('the data of employee is 
writeln ('name', ' ', 'number',' 
reset(f); 

while not eof(f) do 

begin 

read(f, emp) ; 

with emp do 

writeln (name, ' "RO," 
end; 

close(f); 

readln; 


end. 


Safiya Najeh 
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salary 
2.0955000000E+02 
1.3355400000E+02 


1.2335540000E+03 


Output:- 

enter the data of employee: 
enter name:1 safiya 
enter number:1 

enter address: Iraq 
enter salary:209.55 
enter name:2 fatima 
enter number : 2 

enter address: tunis 
enter salary:133.554 
enter name: 3 haneen 
enter number : 3 

enter address: turkya 
enter salary:1233. 554 
enter name: 4 banan 
enter number : 4 

enter address :monester 
enter salary: 67776.444 
enter name:5 alaa 
enter number : 5 

enter address: sudan 
enter salary: 45456.45465 


the data of employee is: 


name number address 
safiya 1 Iraq 
fatima 2 tunis 
haneen 3 turkya 
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banan 4 monester 6.7776444000E+04 


alaa 5 sudan 4.5456454650E+04 


(2) program fiveteen; 

type 

employee=record 

name:string; 

no:integer; 

address:string; 

salary:real; 

end; 

var f:file of employee; 
f1:file of employee; 

f£2:file of employee; 

emp :employee; i:integer; 
begin 

assign (f, 'd:\employee.dat') ; 
assign (f1, 'd:\employe1.dat') ; 
assign (f2, 'd:\employe2.dat') ; 
reset(f); 

rewrite (f1) ; 

rewrite (f2) ; 

while not eof(f) do 

begin 

read(f, emp) ; 

if (emp.salary<1000) then 
write (f1, emp) 

else 

write (f2, emp) ; 

end; 

reset (f1) ; 

reset (f2) ; 

writeln ('the data of employee is:'); 
writeln ('name',' ', 'number',' ','address',' ','salary'); 


reset(f); 
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while not eof(f) do 

begin 

read(f, emp) ; 

with emp do 

writeln (name, ' EDO ',address,' ',salary) ; 
end; 

writeln; 

writeln ('the data of employee whose salary less than 1000 D:'); 
writeln ('name',' ', 'number',' ','address',' ','salary'); 
while not eof (f1) do 

begin 

read(f1,emp) ; 

writeln (emp .name , ' ',emp.no, ' ',emp.address, ' 
',emp.salary) ; 

end; 

writeln; 

writeln ('the data of employee whose salary more than 1000 D:'); 
writeln ('name', ' ', 'number',' ','address',' ','salary'); 
while not eof (f2) do 

begin 

read(f2,emp) ; 

writeln (emp .name , ' ',emp.no, ' ',emp.address, ' 
',emp.salary) ; 

end; 

close(f); 

close (f1) ; 

close (f2) ; 

readln; 

end. 

Output:- 


the data of employee is: 

name number address salary 

safiya 1 Iraq 2.0955000000E+02 
fatima 2 tunis 1. 3355400000E+02 


haneen 3 turkya 1.2335540000E+03 
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banan 4 monester 6. 7776444000E+04 
alaa 5 sudan 4.5456454650E+04 


the data of employee whose salary less than 1000 D: 


name number address salary 
safiya 1 Iraq 2. 0955000000E+02 
fatima 2 tunis 1. 3355400000E+02 


the data of employee whose salary more than 1000 D: 


name number address salary 

haneen 3 turkya 1.2335540000E+03 
banan 4 monester 6.7776444000E+04 
alaa 5 sudan 4.5456454650E+04 


أما إذا كان مطلوب تخزين بيانات الموظفين على مصفوفة ومن ثم نقل بيانات المصفوفة وتخزينها 
على ملف فيزيائي يسمى هل.۳ فإن الكود سيكون كالتالي :- 


program new4; 

type 

employee=record 

name:string; 

no:integer; 

address:string; 

salary:real; 

end; 

var f:file of employee; 
i:integer; 

emp:array [1..10] of employee; 
begin 

assign (f, 'd:\employee.dat') ; 
rewrite (f); 

writeln ('enter the data of employee:'); 
for i:=1 to 5 do 

with emp [i] do 
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begin 

write ('enter name: '); 

readln (name) ; 

write ('enter number: '); 

readln (no) ; 

write ('enter address: '); 

readln (address) ; 

write ('enter salary: '); 

readln (salary) ; 

end; 

for i:=1 to 10 do 

write (f,emp [i] ) ; 

writeln ('the data of employee is:'); 
writeln ('name',' ', 'number',' ','address',' ','salary'); 
reset(f); 

for i:=1 to 10 do 

while not eof(f) do 

begin 

read(f,emp[i]) ; 

with emp [i] do 

writeln (name, ' ',no,'" ',address,'' ',salary) ; 
end; 

close(f); 

readln; 


end. 


Output:- 

enter the data of employee: 
enter name: safiya 

enter number: 3 

enter address: khartoum 
enter salary: 232.23434 
enter name: yosof 


enter number: 5 
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enter address: khartoum 
enter salary: 454.545 
enter name: najeh 

enter number: 9 

enter address: khartoum 
enter salary: 324.111212 
enter name: riad 

enter number: 1 

enter address: birmingham 


enter salary: 3433.211223 


enter name: khlood 
enter number: 10 


enter address: baghadad 
enter salary: 45454.34343 


the data of employee is: 


name number address salary 

safiya 3 khartoum 2.3223434000E+02 
yosof 5 khartoum 4.5454500000E+02 
najeh 9 khartoum 3.2412121200E+02 
riad 1 birmingham 3.4332122300E+03 
khlood 10 baghadad 4.5454343430E+04 


3K XK XK 3K 3K 3K 3K 3K 3K 3K 2K 3K 3K 3K 3K 3K 3K 3K 3K 3K 3K 3K 2K 3K 3F 3K 3K 3K 3K 3K 3K 3K 3K 3K 5K 5K 5K 3K 5K 


الوحدة الر أيعه 


مقدمة عن الموشرات واللواتح 
المنخلقه 
Overview to Pointers &‏ 
Linked List‏ 
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(4-1) مقدمة عن المؤشرات :- 

سنتعرض هنا الى كيفية إستعمال لغة الباسكال في إنشاء بنية بيانات متحركه ) dynamic data‏ 
عمty)‏ » ونقصد بقولنا متحركة اي انها تنمو )۲0W(‏ اثناء تنفيذ البرنامج. 

Dynamic data ype -‏ : هي عبارة عن مجموعة من العناصر تسمي عقد كعل0" . هذه العقد 
تربط مع بعضها باستخدام المؤشرات » وفي حقيقة الأمر أن العقد هي عبارة عن (أ0۲ء۲۴) 
سجلات منها ما يأخذ شکل خطي (عقده ثم عقده ويكون الربط في شكل لائحة) » ويخلاف 
المصفوفات التي تشكل جزء لعدد محدود من العناصر » فإن بنية البيانات المتحركة يمكن أن تمتد 
وتنكمش خلال تنفيذ البرنامج ويتوقف ذلك على حاجة البرنامج لتخزين البيانات . 


بمعنى آخر : فإن عند الاعلان عن المصفوفة يتم حجر مساحة محدده من الذاكرة لا نستطيع 
تجاوزها عند استخدام المصفوفة » وعند تجاوز هذه الساحة يحدث ما يسمي بمشكلة ( 2۲٣2۷‏ 
س0wاoverf‏ ) » وهذه الحالة لا تحدث عند استخدام المؤشرات لان الساحة المتاحة تكون مفتوحة. 
إن بينة البيانات المتحركة تستخدم لتخزين بيانات دائمة التغيير » مثال لذلك قائمة المسافرين 
على خطوط جوية معينة » فإذا كان قد تم عمل هذه القائمة حسب الترتيب الهجائي لأسماء 
المسافرين وذلك بإاستخدام مصفوفة » فإنه عند حاجتنا لإضافة إسم مسافر إلى تلك القائمة فإنه 
يلزمنا أن نزيح جميع الأسماء التي تلي ذلك الإسم » وذلك لإفساح المجال له » لوضعه في مكانه 
الصحيح في المصفوفة » ولا شك أن أن هذا الإجراء يتطلب عملا شاقاً وزمناً طويلاً » أما إذا 
إستخدمنا بنية البيانات المتحركة » فإننا وبسهولة يمكننا إدخال ذلك الإسم بين إسمين من 
الأسماء في تلك القائمة لذلك توصف بنية البيانات المتحركة بأنها مرنة » فمن السهل جدآً إضافة 
بيانات جديدة عن طريق إنشاء عقده جديدة » وإدخالها بين عقدتين موجودتين أصلاً > ومن السهل 
إجراء أي تعديل على بنيه البيانات المتحركة » كإجراء عملية حذف » أو نقل لعقده » وهذا أكثر 
كفاءه من إجراء تعديل على عنصر في مصفوفة » حيث إن لكل عنصر مكان محدد مرتبط بالعناصر 
الأاخرة يحدده مؤشره الدليلي . 

الصيغة العامة:- 


type 


pointerName = ^dataType; 


Example:- 

type 

Pp = ^node; 
node = record 
name : string; 
no : integer; 


place : string; 
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end; 


var XxX,Yy,Z:P; 


„ pointer operator : ^ 


„. pointers : X,Y,Z 


الآن تم الإعلان عن المؤشر أو التصريح عنه » ولكن كيف أستطيع أن أخصص له مساحة 
داخل ذاكرة الحاسوب حتى نستطيع نستخدم هذا المؤشر ؟؟؟؟ 
يتم ذلك بتخصيص مساحة للمؤشر بإستخدام الكلمة المحجوزة ۸6W‏ . 

Syntax:- 


new (pointerVariable) ;‏ 
new (x); New (y); New (z);‏ 
إذاً المتغير × : هو عبارة عن سجل والسجل به ۲ حقول . 
باستخدام المؤشرات أستطيع أن أصل إلى البيانات داخل ذاكرة الحاسوب سواء بتخزين 
البيانات أو إسترجاع بيانات. 
كذلك عندما نريد أن نصل إلى المواقع التي يشير إليها المؤشر يتم ذلك إما بتخزين بيانات 
عليه أو إسترجاع بیانات منه . 
يتم إستخدام عبارة ۲٠۵١‏ للكتابة على المؤشرات أو للتخزين . 
يتم إستخدام عبارة ١أ‏ للطباعة أو الإسترجاع . 
read/write (pointerVariable^. fieldName or variableName) ;‏ 
ومن الممكن أن يتم استخدام طريقة اهل أو طريقة 1أ وذلك كالتالي :- 
with pointerVariable^ do‏ 
begin‏ 
f£iledName ;‏ 


end; 


یمکننا أن نجعل مؤشر يشير إلى موقع يشير إلیه مؤشر آخر بشرط أن تكون هذه 
الفوشر اة فن تفن الع" 

;×=:۷ هذا يعني أن ۷ يشير إلى نفس الموقع الذي يشير إليه × » وإذا قمت بطباعة ۷ 
نظت تفن انات 
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, چ‎ A 88 | Iraq 


×X اا۸ )ج‎ 88 Iraq 


- إذا كنا في لحظة من اللحظات نريد أن نلفي تخصيص × هذا يعني أن نعمل و9١‏ 6اع لعقدة 
معينة وبهذا ألغي التخصيص الذي يشير إلى العقده وذلك كالتالي : 
dispose (pointerVariable) ;‏ 


dispose (x) ;‏ 
- آي عقدة شكلما أن يكون هنالك مؤشر يشير إليها ومؤشر خارج منها يشير إلى اال" حتى 
أستطيع أن أضيف إليها في أي وقت في نهايته . 


head ۾‎ null 


Example:- 


Type 


P = ^node; 


Node = record 


Name : string; 
No : integer; 
Place : string; 
End; 


Var X,y,Z :P; 
New (x) ; 

New (y) ; 

New (z); 
{X^.name:=’ Ali’; } 
With x^ do 

Begin 


Name:=’ Ali’; 
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No:=88; 
Plase:’ Iraq’; 
End; 


Write (x^.name,’ ’,x^*.no,' ' ,x^.place); 


(4-2) اللوائح المنغلقه ءا -:Linked‏ 


فى فبارة عن سلسلة من العقد ( ۸645) بخيت كل عقدة مربؤطة مع العقدة التي تليها : مشر 
الفقد الأولى يشمن الزأس (34غ) والعقذة الأخيرة قفر الى اا وبذلك تخصل على طرف لائة 
ل 


سدم اللات قى اء الوا تة المفكاقة ء فانط سكل كوت هن خفلمن فل الفانات وخفل 
آخر مؤشر للسجل التالي . 


تستخدم اللواتح المفافة على سيل الفغال في المترجمات ونظم التشهل وتظمر اذارة قواغد 
البيانات . 
الإعلان عن عقدة مكونه من حقلين :- 
program sixteen;‏ 
type‏ 
1Iptr=^node;‏ 
node=record‏ 
data: integer;‏ 
next: lptr;‏ 
end;‏ 
إنشاء اللانحة المنغلقة :- 
الخوارزمية لإنشاء اللائحة المنغلقة:- 


. |م٣ إنشاء مؤشر من النوع‎ -١ 

۲- إجعل المؤشر يشير إلى ااا" . 

- ولإنشاء اللائحة المنغلقة نقوم بإستدعاء الدالة أكأااةع۲ء في البرنامج الرئيسي فنكتب 
.head:=creatList;‏ 

- يمكن رسم شكل المؤشر في الذاكرة كالآتي : head ¬- null‏ . 


function creatlist:lptr; 


var p:lptr; 
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begin 

new (Pp) ; 
p^.next:=nil; 
creatlist:=p; 


end; 


- ولإضافة أي عقدة إلى الائحة فإننا نقوم بإنشاء عقدة جديدة عن طريق الدالة ع0١‏ امو 
وهذه العقدة تكون من النوع ۸.08 » ونشير إليها بمؤشر من النوع ۲| ويسمى NneW|p¦‏ « 
ونقراً قيمة الحقل هاه ونجعل المؤشر ٣6×‏ يشير إلى ااا" . 
function getnode:lptr;‏ 
var newlptr:lptr;‏ 
begin‏ 
writeln ('enter the integer you want add to the list:');‏ 
readln (n) ;‏ 
new (newlptr) ;‏ 
with newlptr^ do‏ 
begin‏ 
data:=n;‏ 
next:=nil;‏ 
end;‏ 
getnode:=newlptr;‏ 


end; 


إضافة عقدة حديدة :- 
خوارزمية الإضافة :- 


-١‏ إنشاء عقدة جديدة من النوع ٥ل0٣‏ تحتوي على العدد المراد إضافته إلى الائحة. 

-٣‏ إذا كان العدد في العقدة الجديدة أصغر من العدد في العقدة الأولى أضف العقدة الجديدة 
قبل العقدة الأولى . 

-٣‏ إذا كان العدد في العقدة الجديدة أكبر من العدد في العقدة الأولى أجر (۲) مع العقدة 
التالية مالم تصل إلى نهاية اللائحة المنغلقة. 


اذا وصلك الى تعاية اللائخة أضف اة الخديدة قى خر اللانحة باسكختام التداة الذافى > 
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يمكن كتابة إحراء الإضافة كالتالي :- 


procedure add (var head:lptr;newlptr: lptr) ; 
var temp: lptr; 

begin 

if (head=nil) then 

head: =newlptr 

else 

if (newlptr^.data=head^.data) then 
writeln ('this value is already in the list') 
else 

if (newlptr^.data<head^.data) then 

begin 

temp :=head; 

head:=newlptr ; 

newlptr^.next:=temp; 

end 

else 

if (newlptr^.data>head^.data) and (newlptr^.data<head^.next^.data) 
then 

begin 

temp :=head^*.next; 

head^*.next:=newlptr; 

newlptr^.next:=temp 

end 

else 

add (head^*.next,newlptr) ; 


end; 


- لحذف عقدة من اللائحة نقوم بعملية البحث عن تلك العقدة بالإجراء ۸٩2۲ع‏ التي ترجع 
مؤشرين أحدها يشير إلى العقدة المراد حذفها والتالي يشير إلى ماقبل العقدة المراد 
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- الغرض لوجود مؤشرين هو جعل المؤشر قبل العقدة المراد حذفها يشير إلى نفس المكان 
الذي يشير إليه مؤشر العقدة المراد حذفها حتى يتسنى حذق العقدة المراد حذفها 
بالدالة ع٤كئdispo‏ . 


خوارزمية حذف عقدة من اللائحة المنغلفة :- 


. استخدم برنامج البحت في تحديد قيم المؤشرين 3۲9€ و €4] م‎ -١ 
إذا كان المؤشر أعو۲ةا يشير إلى االا" اطبع رسالى بعدم وجود العقدة المراد حذفها.‎ -٣ 
إذا كان المؤشر اع ۲ه لا يشير إلى اانا" بينما المؤشر ١۲۴م يشير إلى ااu" أجر مايلي‎ -۳ 
: (وهذا يعني أن العقدة المراد حذفها هي العقدة الأولى)‎ 
. يشير إلى العقدة الثانية‎ ٣٥۴2١ أ- دع المؤشر‎ 
. ب- إستخدم الدالة #كه0مءال لإلغاء العقدة الأولى‎ 
إذا كان المؤشران أعو۲ةا و ١۲۴م لا يشيران إلى االا" أجر مايلي:-‎ -٤ 
. pred^.next:=target^.next Jezl -Î 
. ب- استخدم الدالة عكه0مءاك لإلغاء العقدة المشار إليها ب أعق۲ها‎ 


procedure delete (var head: lptr; x:integer) ; 
var target,pred:lptr; 

begin 

search (head,x, target ,pred) ; 

if (target=nil) then 

writeln ('this node is not found') 
else 

if (target=head) and (pred=nil) then 
begin 

head:=head^.next; 

dispose (target) ; 

end 

else 

if (target^.next=nil) then 

begin 


pred^.next:=nil; 
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dispose (target) ; 

end 

else 

begin 
pred^.next:=target^.next; 
dispose (target) ; 

end; 


end; 


البحث عن عقدة في اللائحة المنغلقة:- 
خوارزمية البحث :- 


. target & pr€d إذا كانت اللائحة خالية من العقد أعطي القيمة ااام للمؤشرين‎ -١ 

قار تين القدف والعقدة الأولى إذا كان الهدف تاوت العدذ فى الففذة الأولى ذع المؤشر 
ta 9€t‏ يشير إليها واحعل المؤشر ۵١۲۴م‏ يشير إلى ااا" . 

-٣‏ إذا كان الهدف لايساوي قيمة العدد في العقدة الأولى انتقل للمقارنة مع العقدة التالية ء 
إذا كان الهدف يساوي قيمة العدد في العقدة التالية دع المؤشر ا۲96ةا يشير إليها ودع 
الاير اة نتير الى الفقدة التى فليا 

. )۲( إذا كان الهدف لايساوي قيمة الحقل (العدد) في العقدة التالية كرر الخطوة‎ -٤ 

ه- إذا وصلت إلى نهاية اللائحة المنفلقة ولم تجد الهدف أعطي قيمة ااا" إلى المؤشرين 
target & pred‏ . 

procedure search (head:lptr; x:integer; var target,pred:lptr) ; 
begin 

if (head=nil) then 

begin 

writeln (x,'is not found'); 
target:=nil; 

pred:=nil; 

end 

else 

if (head^.data=x) then 
begin 

target:=head; 


pred:=nil; 
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end 
else 


if (head^*.next^.data=x) then 


begin 
target:=head^*.next; 
pred:=head; 

end 

else 


if (x>head^.data) and (x<head^.next^.data) then 
begin 

writeln (x,'is not found') ; 

target:=nil; 

pred:=nil; 

end 

else 

search (head^.next,x, target ,pred) ; 


end; 


طباعة محتويات اللائحة المنغلقة :- 
عند الحوجة لإسترجاع البيانات المخزنة نقوم بطباعة محتويات اللائحة المنغلقة. 
خوارزمية طباعة محتويات اللائحة لمنغلقة :- 

طالما أن المؤشر ٠٥2١‏ لايساوي االا" أجر مايلي :- 


أ- اطبع قيمة head^.data‏ . 
ب- head=head^.next Jaz‏ . 


procedure printlist (head:lptr) ; 
begin 

while head<>nil do 

begin 

writeln (head^.data,' '); 
head:=head^*.next; 

end; 


end; 


DATA STRUCTURES PASCAL Safiya Najeh 


مناداة البرامج السابقة داخل البرنامج الرئيسي :- 
var n,no,r:integer;‏ 

head,x,y,b,s, target,pred:lptr; 

begin {maim program} 

new (head) ; new (x) ; 

new (y) ; new (b) ; 


head:=creatlist; 


writeln ('1--->creatlist',' ' ,'2--->getnode' ,' ','3--->add to the 
list',' '; 
'4--->search from the list',' ','5--->print list',' ','6--->delete 
node',' ', 


'7--->exit'); 

repeat 

writeln ('what do you want???'); 

readln (no) ; 

case no of 

1:head:=creatlist; 

2:s:=getnode; 

3:add (head, s) ; 

4:begin 

writeln ('enter number you want search:'); 
readln (r) ; 

search (head,r, target ,pred) ; 

end; 

5:printlist (head) ; 

6:begin 

writeln ('enter no you want to dalete'); 
readln (r) ; 

delete (head,r) ; 

end; 

end; 

until (no=7); 

if (no=7) then 

writeln ('you are out of the list'); 
writeln('by....... by I hope see you soon'); 


readln; end. 
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output:- 


1--->creatlist 2--->getnode 3--->add to the list 4--->search from 
the list 5---> 

print list 6--->delete node 7--->exit 
what do you want??? 

1 

what do you want??? 

2 

enter the integer you want add to the list: 
12 

what do you want??? 

3 

what do you want??? 

1 

what do you want??? 

2 

enter the integer you want add to the list: 
8 

what do you want??? 

3 

what do you want??? 

12 

8 

what do you want??? 

4 

enter number you want search: 

8 

what do you want??? 

4 

enter number you want search: 
100 

100 is not found 

what do you want??? 

6 

enter no you want to delete 

8 

what do you want??? 

12 

what do you want??? 

7 

you are out of the list 

BV ses by I hope see you soon 
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Example:- 
أكتب برنامج يقوم بتخزين سجلات ه موظفين ثم يقوم البرنامج بطباعة سجلات الموظفين‎ 
على شاشة التنفيذ ويكون بإستخدام الرقم.‎ 
program seventeen; 
type 
1ptr=^node; 
node=record 
name:string; 
salary:real; 
no:integer; 
next: lptr; 
end; 
var head,d,l,m, target,pred:lptr; 
1i1,b,n,e:integer; 
function creatlist:lptr; 
var pP:lptr; 
begin 
new (Pp) ; 
p^.next:=nil; 
creatlist:=p; 
end; 
function getnode:lptr; 
var newlptr:lptr; r:integer; na:string; sa:real; 
begin 
writeln ('enter employee name you want add to the list'); 
readln (na) ; 
writeln ('enter employee number you want add to the list'); 
readln (r) ; 
writeln ('enter employee salary you want add to the list'); 
readln (sa) ; 
new (newlptr) ; 
with newlptr^do 
begin 
name:=na; 
no:=r; 


salary:=sa; 
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next:=nil; 

end; 

getnode:=newlptr; 

end; 

procedure add (var head,newlptr:lptr) ; 
var temp: lptr; 

begin 

if head=nil then 

head: =newlptr 

else 

if newlptr^*.no =head^*.no then 

writeln ('this record alredy in the list') 
else 

if newlptr^.no<head^.no then 

begin 

temp :=head; 

head:=newlptr ; 

newlptr^*.next:=temp; 

end 

else 

if (newlptr^*.no>head^*.no) and (newlptr^.no<head^.next^.no) then 
begin 

temp :=head^*.next; 

head^*.next:=newlptr; 

newlptr^.next:=temp; 

end 

else 

add (head^*.next,newlptr) ; 

end; 

procedure search (head: lptr; z:integer; var target,pred: lptr) ; 
begin 

if head=nil then 

begin 

writeln (z,'this number is not found in the list'); 
target:=nil; 


pred:=nil; 
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end 

else 

if head^.no=z then 
begin 
target:=head; 
pred:=nil; 

end 

else 


if head^.next^.no=z then 


begin 
target:=head^*.next; 
pred:=head; 

end 

else 


if (z>head^.no) and (z<head^.next^. no) then 

begin 

writeln ('this record is not found in the list'); 
target:=nil; 

pred:=nil; 

end 

else 

search (head^.next, Zz, target,pred) ; 

end; 

procedure delete (var head: lptr; k:integer) ; 
var target,pred:lptr; 

begin 

search (head,k, target ,pred) ; 

if target=nil then 

writeln('this node is not found in the list') 
else 


if (target=head) and (pred=ni1l) then 


begin 
head:=head^.next; 
dispose (target) ; 
end 

else 
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if target^.next=nil then 

begin 

pred^.next:=nil; 

dispose (target) ; 

end 

else 

begin 

pred^*.next:=target^.next; 
dispose (target) ; 

end 

end; 

procedure printlist (head:lptr) ; 
begin 

writeln ('name',' Tp BRO ','salary'); 
while head<>nil do 

begin 

with head^ do 

writeln (name, ' TROY, " ',salary) ; 
head:=head^*.next; 

end; 

end; 


begin{main program} 


write ('1--->creatlist',' ','2--->getnode && add',' ','3--->print 
list',' '); 

writeln ('4--->search from the list',' ','5--->delete node',' ','6--- 
>exit') ; 

repeat 


writeln ('what do you want???'); 
readln (b) ; 
case b of 


1:head:=creatlist; 


2 :begin 
for i:=1 to 3 do 
begin 
1:=getnode; 


add (head, 1) ; 
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end; 
end; 
3:printlist (head) ; 
4:begin 
writeln ('enter the number of employee you want to search to the 
record'); 
readln (n) ; 
search (head,n, target ,pred) ; 
if target<>nil then 
begin 
writeln ('record is found in the listand the data of this employee 
TS); 
with target^ do 
writeln ('name is:',name, 'no=',no, 'salary=' ,salary) ; 
end 
end; 
5 :begin 
writeln ('enter number of employee you want to delete from the 
list'); 
readln (e) ; 
delete (head,e) ; 
end; 
end; 
until b=6; 
if b=6 then 
writeln ('you are out of the list'); 
writeln('by...... by'); 
readln; 


end. 


output:- 

1--->creatlist 2--->getnode && add 3--->print list 4--->search from 
the list 5--->delete node 6--->exit 

what do you want??? 

1 


what do you want??? 
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2 

enter employee name you want add to the list 
safiya 

enter employee number you want add to the list 
1 

enter employee salary you want add to the list 
2323. 5 

enter employee name you want add to the list 
najeh 

enter employee number you want add to the list 
2 

enter employee salary you want add to the list 
45454.7776 

enter employee name you want add to the list 
fatima 

enter employee number you want add to the list 
3 

enter employee salary you want add to the list 
43535.565446 

what do you want??? 

3 

name no salary 

safiya 1 2.3234450000E+03 

najeh 2 4.5454777600E+04 

fatima 3 4.3535565460E+04 

what do you want??? 

4 

enter the number of employee you want to search to the record 
2 

record is found in the list and the data of this employee is: 
name is:najeh no=2 salary= 4.5454777600E+04 
what do you want??? 

5 

enter number of employee you want to delete from the list 
3 


what do you want??? 
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3 

name no salary 

safiya 1 2.3234450000E+03 
najeh 2 4.5454777600E+04 
what do you want??? 

6 


you are out of the list 


أما إذا كان المطلوب ألا أراعي الترتيب سيتم تعديل ل24 ۲0٤601۲٤‏ وسيكون كالتالي :- 


procedure add(var head, newlptr:lptr) ; 
begin 

if head=nil then 

head:=newlptr 

else 

add (head^*.next,newlptr) ; 


end; 
procedure add ذاlدانم إن عملية النداء الذاتي دائما تتم بقيم جديدة فبالتالي عندما یتم‎ 
. مرة تانية يكون ال ١2ع يشير إلى ااا"‎ 


من أھم إستخدامات ال tءاا e۵‏ )ہا أو ممیزاتھا :- 

-١‏ الفهرسة الذاتيه : وتعني أنه إذا وصلنا إلى أي عقدة نستطيع بواسطتها أن نصل إلى بقية 
العقد المربوطة معها . 

-٣‏ إذا أردنا أن نضيف عقدة معينة لا نحاج أن نحجز أو نخصص مساحة لها وإنما فقط يتم 
التصريح عنها » أي أنه لايوجد ٥۷6۲۴|0W‏ أي المساحة غير محدودة وإنما المساحة تكون 
مفتوحة » ومتى ما أردنا أن ننشئ عقدة نقوم بإنشائها. 

. نستطيع إجراء كل العمليات المراد إجراءها على البيانات بسهولة أي أنها مرنة‎ -٣ 


- إن هذا النوع من البيانات مرن جدآً بحيث نجري العمليات على البياننات بسهولة تامة وهذا 
النوع من البيانات يستخدم في البيانات التي تتاج إلى تغيير مستمر . 
- عندما ينتهي التعامل مع عقدة معينة من الممكن أن نقوم بمسح هذه العقدة ليتسنى لنا 


إستخدام حة هذه العقدة مرة تانية. 
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العقد ترتبط مع بعضها البعض بطريقتين هما :- 
-١‏ إما تكون خطية : 


SS N. O. 


: إما أن تكون في شكل تفرع‎ -٣ 


في أي لائحة لابد أن يكون هنالك مؤشر يشير إليها. 

أي لائحة لا يوجد لديها مؤشر يشير إليها لا نستطيع إستخدامها أو الوصول إليها. 
أي عقدة لها مؤشران:- 

-١‏ مؤشر يشير إليها من خلاله نصل إلى كل حقول العقدة. 

. مؤشر خارج منها يشير إلى االا" ولابد أن يكون المؤشران من نفس النوع‎ -٣ 


3K XK XK 3K 3K 3F 2K 3K 3K 3K 2K 3K 3K 3K 3K 3K 3K 3K 3K 3F 3K 3K 3K 3K 3F 3K 3K 3K 3K 5K 3K 3K 3K KF 3K 5K 5K KF 


الوحدة الخامسة 


المکدسات 
Stack‏ 
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-: Stack Using Array (o-1) 


المكدسه هي قائمة من البيانات تحفظ بطريقة خطية » يتم فيها حذق وإضافة البيانات من طرف 
واحد يسمى القمة ٠٠‏ أو ط٥٠‏ )عهاء (قمة المكدسه) » وتكون هذه الطريقة خطية سواء أكانت 


. dynamic or static 
-: هنالك ميزة يتصغبها الم ٥۲آ وهی‎ 


- أنه يحدد لنا الموقع لأخر عنصر تم تخزينه داخل المكدسه . 
- عادة لا يحدد موقع فارغ وإنما يحدد الموقع لآخر عنصر. 
- من خلاله نستطيع أن نعرف هل المكدسه خالية أو ممتلئه. 


مبدأ المكدسه هھ : First In First Out‏ . 
العمليات الأساسية للمكدس هي :- 


. ںئ٣ عملية الإضافة‎ -١ 
. عملية الحذف مه۴‎ -٣ 


- مثلاً إذا أضفنا عنصر للمكدسه » فإننا ترمز لعملية الإضافة ب (ة,ئ)۸كلام وبعد إجراء هذه 
العملية فإن العنصر ج يصبح في قمة المكدسه . ولما كانت عملية الحذق لا تتم إلا من 
قمة المكدسه فقط فإنه يمكننا أن نرمز لها ب (0)5م » ولا يوجد لزوم لتحديد العنصر 
المراد حذفه وذلك لأنه بعد إجراء هذه العملية يتم حذف العنصر الذي يقع في قمة 
المكدسه. 


ماهي إستخدامات المكدسات :- 
اھ فالا الداتى: 

١‏ قي الترامخ اة 

.) في الإنتربط (عملية المقاطعة‎ -٣ 
که قي اماد الهاي الجساة.‎ 
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الإعلان عن المكدسه :- 
نجد أن المكدسه يمكن الإعلان عنها كسجل يحتوي على حقلين :- 


مصفوفة لإحتواء عناصر المكدسه » ومتفير صحيح لتحديد الموقع الحالي لقمة المكدسه في 
المدى المحدد للمصفوفة » ونقوم بتعريف متفير على أن نوعه من )حةأك . 


program seventeen; 
const maxstack=100; 
type 

stack=record 


item:array [1..maxstack] of integer; 
top :0..maxstack; 


end; 


var s:stack; 
لماذا تم تعریف المکدسه على أنه سجل ؟؟؟‎ 
. حتى نستطيع الربط بين العناصر وبين المصفوفة‎ 


- القمة مه قيمتها تحدد موقع قمة المكدسه . فمثلاً إذا كان 3=م0) » فهذا يعني أن 
المكدسه تحتوي على تلاتة عناصر [۳]3ع || , [۳]2ع || , [۳]1عt|‏ . وعندما تحدث عملية 
حذف 0م من المكدسه . فإن القمة مها تتغير إلى ۲ » أما إذا حدثت عملية إضافة ٣كئام‏ 
فإن القمة مه سوق تزداد إلى > » و [4] 8۳| سوف يأخذ قيمة العنصر الجديد الذي تم 
إضافته . 

- المكدسه الخالية لا تحتوي على أية عناصر » وقد نستطيع الإستدلال على ذلك عندما 
تكون القمة 0p‏ مساوية للصفر » ولجعل المكدسه في حالتها الإيتدائبة (مكدسة خالية) › 
فإننا نجعل القمة مساوية للصفر 0= 0 . 

- عنما تكون المكدسه ممتلئه نستطيع الإستدلال على ذلك عندما تكون القمة مها 
مساوية lilJبٽ maxStack‏ . 


-: empty allدll‎ 


لإختبار ما إذا كانت المكدسه خالية أم لا فإننا نستخدم الدالة ۷م" والتي ترجع القيمة 
ku#‏ إذا كانت المكدسة خالية » والقيمة #ءاه؟ إذا كانت غير ذلك . 
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function empty (s:stack) :boolean; 
begin 

if (s.top=0) then 

empty :=true 

else 

empty :=false; 

end; 


الدالة ااں؟ :- 
وهي لإختبار هل المكدسه ممتلئه أم لا » فترجع القيمة ع٠‏ إذا كانت المكدسه ممتلئه 
والقيمة عكاه؟ إذا كانت غير ذلك . 
function full (s:stack) :boolean;‏ 
begin‏ 
if (s.top=maxstack) then‏ 
full:=true‏ 
else‏ 
full:=false;‏ 


end; 
-: خوارزمية الحذف من المكدسه‎ 


أ کار ما ذا كانت الد مةه خالة .قا كات غير خالة نمر قى تقد رة 
الخطوات :وال فار الى النرناشح الاك : 

اخذف الفنضر الذزى رقع قى قمة المكدذنة. 

١ه‏ اطخ واخد من قمة المكدسة : 

ا كع الفتمر المت وف الى ال فح التادت 


التقرض الات أا قمغا باخراء غملة الخذف مف وتم تك ارها ختى أخرعتفر قى المكوسة: 
فإننا نحصل على مكدسة خالية )>ةاك۷امصe‏ » لذلك فبل إجراء عملية الحذف يجب التأكد 
فن أن المكدسة ليست خالبة + وذلك بواسطة الغملية ‏ (6 ا8۹6 > والتي تخدد ما ذا 
كانت المكدسه خالية أم لا . 

function pop (var s:stack) :integer; 
begin 
if empty (s) then 
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writeln ('stack is empty') 
else 

begin 
pop:=s.item[s. top] ; 
s.top:=s. top-1; 

end; 


end; 
لنفرض الآن أن لدينا مكدسة خالية وقمنا يإجراء عملية الحذف مهم فإننا نحصل على‎ - 
وبالتالي يجب فحص المكدسه بواسطة الدالة (ئ)رأم"٠ قبل عملية الحذف.‎ . underF|0w 


خوارزمية الإضافه للمكدسه :- 


-١‏ إختبر ما إذا كانت المكدسه ممتلئه أم لا » إذا لم تكن ممتلئه إستمرفي تنفيذ الخطوات 
وإلا فارجع إلى البرنامج المنادى . 

. أضف واحد إلى قمة المكدسه‎ -٣ 

-٣‏ أسند العنصر المراد إضافته إلى قمة المكدسه. 


- لنفترض أن لدينا مكدسة ممتلئه » وقمنا بإجراء عملية إضافة كام » فإننا نحصل على 
wاver۴ه‏ ولذلك يمكن إستخدام الدالة (ك)االا؟ قبل عملية الإضافة كام لتفادي 
0W|اoverF‏ » وهي ترجع ع۷١‏ إذا كانت المكدسه ممتلئه » كما ترجع القيمة المنطقية 
مءاةfإذا‏ كانت غير ذلك . 


procedure push (var s:stack; x:integer) ; 
begin 

if full (s) then 

writeln ('stack is full') 

else 

begin 

s.top:=s. top+1l; 

s.item[s. top] :=x; 

end; 


end; 


عملية تحديد العنصر العلوي في المكدسه :- 


function stacktop (s:stack) :integer; 


begin 
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if empty (s) then 

writeln ('stack is empty') 
else 
stacktop:=s.item[s. top] ; 


end; 


عملية التهينه للمكدسه :- 


procedure initialize (var s:stack) ; 
begin 
s.top:=0; 


end; 


عملية الإضافة (لجمع آخر عددين في المكدس) :- 


procedure addtop (var s:stack) ; 
var opl,op2:integer; 
element : boolean; 
begin 

op2 :=pop (s) ; 

if empty (s) then 
begin 

element :=true; 

push (s,op2) ; 

end 

else 

begin 

op1:=pop (s) ; 
element:=false; 

push (s,opl+op2) ; 

end; 


end; 
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عملية )ه45 4ه (هذا لتكرار الإحراء السابق وهو يكون لجمع حميع عناصر 
المكدسه):- 


procedure addstack (var s:stack) ; 
var element:boolean; 
op1,op2:integer; 

begin 

repeat 

addtop (s) ; 

until element; 


end; 
عملية الطاعة:-‎ 


procedure display (s:stack) ; 
var i:integer; 

begin 

if empty (s) then 

writeln ('stack is empty') 
else 

for i:=s.top downto 0 do 
write (s.item[i],' '); 


end; 


مناداة حميع البرامج السابقة في البرنامج الرئيسي:- 


var no,x,P,b:integer; 
begin {main program} 


write ('1-->initialize' ,'2-->empty' ,'3-->full' ,'4-->push' ,'5-->pop' ,' 6-- 
>stacktop' , '10-->exite'); 


writeln (' 7-->display',' ','8-->addtop',' ','9-->addstack'); 


repeat 
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writeln ('what do you want??'); 
readln (no) ; 

case no of 

1:initialize (s) ; 

2:begin 

if empty (s) then 

writeln ('the stack is empty ') 
else 

writeln ('the stack is not empty') ; 
end; 

3:begin 

if full (s) then 

writeln ('the stack is full') 
else 

writeln ('the stack is not empty') ; 
end; 

4:begin 

writeln ('enter x number: '); 
readln (x) ; 

push(s,x) ; 

end; 

5:p:=pop (s) ; 

6:b:=stacktop (s) ; 
7:display (s) ; 

8:addtop (s) ; 

9:addstack (s) ; 


end; 
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until (no=10) ; 
write ('end...'); 
readln; 


end. 
Output:- 


1-->initialize 2-->empty 3-->full 4-->push 5-->pop 6-->stacktop 10-->exite 
7-->display 8-->addtop 9-->addstack 


what do you want?? 
1 

what do you want?? 
2 

the stack is empty 
what do you want?? 
4 

enter x number: 

45 

what do you want?? 
4 

enter x number: 

90 


what do you want?? 
enter x number: 


what do you want?? 
7 

1 90 45 

what do you want?? 


6 
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what do you want?? 
5 

what do you want?? 
7 

90 45 

what do you want?? 
10 


end... 


-: Stack Using Pointer (o — 2) 


. first in first out gag stack J| Îدبم في هذا النوع نحافظ أيضاً على‎ - 

= ف ا كات المظلوي تين أعداة صخيخة فاا ها لا تاخ الى آلدالة (6اان لان 
المكدسه مساحتها مفتوحه لأنها data struc ۲٥‏ aynamicه‏ » ولكن أحتاج إلى الدالة 
empty‏ لأُن مشکلة ال W٥ا۵۲۴ل۸ں‏ لا زالت موجوده. 


Example:- 

program tewantyone; 
type 

stack=^node; 
node=record 

item: integer; 
next:stack; 

end; 

var s:stack; 
function empty (st:stack) :boolean; 
begin 

if st=nil then 
empty :=true 

else 

empty :=false; 


end; 


function pop (var s:stack) :integer; 
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var p:stack; 
begin 

new (Pp) ; 

if empty (s) then 
writeln ('stack is empty') 
else 

begin 
pop:=s^.item; 
pP:=s; 
s:=s^.next; 
dispose (p) ; 

end; 


end; 


procedure push (var s:stack; x:integer) ; 
var p:stack; 

begin 

new (Pp) ; 

writeln ('enter x number:'); 

readln (x) ; 

p^.item:=x; 

p^.next:=s; 

s:=p; 


end; 


procedure initialize (var s:stack) ; 
begin 
s:=nil; 


end; 


procedure display (s:stack) ; 
begin 

if empty (s) then 

writeln ('stack is empty') 
else 


while s<>nil do 
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begin 

write (s^.item,' '); 
s:=s^.next; 

end; 


end; 


var no,x,p:integer; 


begin{main program} 


writeln ('1-->initialize',' ','2-->push',' ','3-->pop',' ','4-- 
>display',' ','5-->exite'); 
repeat 


writeln ('what do you want???'); 
readln (no) ; 

case no of 
1:initialize (s) ; 
2:push(s,x) ; 
3:p:=pop (s) ; 
4:display (s) ; 

end; 

until (no=5); 
writeln ('end...'); 
readln; 


end. 


Output:- 

1-->initialize 2-->push 3-->pop 4-->display 5-->exite 
what do you want??? 

1 

what do you want??? 

2 

enter x number: 

12 

what do you want??? 

2 


enter x number: 
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7 

what do you want??? 

2 

enter x number: 

67 

what do you want??? 

4 

67 7 12 what do you want??? 
3 

what do you want??? 

4 

7 12 what do you want??? 
5 


end... 


اک کی کن ن کے کی کے کی کن کن کے ی کے کے ی ن ج کے کے کی کن ج کے ی ج کے ی کے کے کے کے ی کی کے ج ی کک 


الوحدة السادسه 


ويل التعابير الحساييه وأيجاد 
قىمها 


DATA STRUCTURES PASCAL Safiya Najeh 


تستخدم عدة طرق لتمتيل التعابير الحسابيه منها :- 


. الصيغة العادية (×أ۴١ا) والتي تستخدم الأقواس الدائريه مثل (00-ط+ه)‎ -١ 

-٣‏ الصيغة البعديه (×5۴هم) ويطلق عليهما أيضاً الصيغة البولنديه » ويأتي المعامل الحسابي 
في هذه الصيغة عادة بعد المتفغير ولا تستخدم هذه الطريقة الأقواس الدائرية متثتل (+طه). 

-٣‏ الصيغة القبلية (×أ۴٥۲م)‏ ويسبق المعامل الحسابي في هذه الطريقة المتغير › ولا 
تستخدم هذه الطريقة الأقواس أيضاً مثل (طة+) . 


- سوف نستعرض ألية تحويل التعبير الحسابي من الصيغة العادية (×آ۴|) إلى صيغة 
(×آ۴اك0م) » علماً بأن عملية التحويل إلى صيغة (×آ۲۴۴) تتم بطريقة مماثله . 

- لإستخدام ال)٤ةاء‏ في إيجاد قيمة التعبير الحسابي لابد أولاً من تحويل هذا التعبير إلى 
صيغة (×ا۴ا05م) بإاستخدام ال)عةاء أو بعدما تحسب قيمة التعبير الممثل بصيغة (×آ۴†ك0م) 
باستخدام ال )اء أيذا . 


التحويل إلى صيغة ال(×ا۴†ئ0م) :- 


يتم تحويل التعبير الحسابي من الصيغة العادية إلى صيغة (×ا۴أئمم) وذلك بإعتبار التعبير 
الحسابي سلسلة رمزية تقراً رمزاً رمز > وتستخدم الخوارزمية التالية لتنفيذ عمل التحويل :- 


)١(‏ مادام هنالك رموز في السلسة نفذ الخطوات التالية. 
(۳) إقرأً الرمز من السلسلة . 
)١-۳( )۲(‏ إذا كان الرمز متغيرآً احفظ هذا الرمز في ال )٤هاك.‏ 


9 6 کات الزم قوسا انرا فقتو أحفظ هذا الرمز قى اناع هاة. 


کان ارم فسا وات ففافا اسع كاف الرمى من ال6اعةاة وأضفها الى ةة 
ال(داااكةم) حتى مصادفة القوس الدائرى المفتوح تم إلفي الأقواس . 


(۲-) إذا كان الرمز معامل حسابي أضف هذا المعامل إلى ال)٤ةأء‏ بشريطة ألا تحتوي 
قيمة ال)عةاء على معامل أولويته أعلى أو تساوي وإلا استرجع المعامل الأعلى أولية من 
ال)عهاء والحقه إلى صيغة ال(×ا۴†ئمم) تم احفظ المعامل المقروء في ال)عهأك . 


كر الخطوات الساتة جى توانة ال فة 
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أما الأولويات للمعاملات هي :- 


اأشارة الكرت:والقفخة : الأدلىة الفلا 
- إشارة الجمع والطرح : الأولوية الدنيا . 


متال:- 


إستخدم الخوارزمية السابقة لتحويل التعبير ك*(٥-5)+a‏ من صيغة ال(×ا۴١|)‏ إلى صيغة 
(postfix)Jl‏ . 


الحل:- 
Symbole The output string | The stack after‏ 
after the action this action‏ ا 
is a variable we must put it to the empty‏ 

س 

`+" is assign of operation we put it to 

the stack (stack is still empty so we 

needn't check the symbol’s priority). mne 


`€ is an opening bracket , we put it to 
the stack. 


`b' is a variable we must put it to the 
output string. 

`-` is assign of operation it’s priority is 
(2) now we must check the stack of the 
stack . 

It is priority (1). So we must put the 


1 


current `-' symbol to the stack. 


`)" is a closing bracket we must take 


out symbol from the stack till we find 
an opening bracket. Then we destroy 
both brackets. 


ce’ isa variable we must put it to the 
output string. 
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`*' is assign of operation it’s priority is 
(3) we must check the stack : 

There is a '+°' symbol. On the top of the 
stack . 

It’s priority is (2) and less than the 
priority of the `*' symbol. So we must 


put the current '*' symbol to the stack. 
`d' is a variable we must put it to the *٭+‎ 
output string. 


وعليه فإن صيغة ال(×ا۴أئمم) المكافئة لصيغة ال(×آ؟٣|)‏ هي :- 


abc-d*+ 
-: أما عملية إحتساب قيمة التعبير فتتم حسب الخوارزمية التالية‎ 


( مادام شتالك رموز قى التعبير تقذ الخطوات التالية ٠:‏ 
(۲) إقرأً الرمز . 
)١-۳( )۳(‏ إذا كان الرمز قيمه احفظ هذه القيمه في ال )٤2اء.‏ 


6 کات الری فقامل خسایی اتخ أخر موك قى ال6اعةاة:. 


( آ5ا كات الرمز مفامل النساوق استرجع ماهو موخود فى قمة الاغهاة. 
(5) كرر الخطوات الساقة. 


نستخدم الخوارزمية السابقة لإيجاد قيمة التعبير الحسابي التالي بإستخدام ال)عهاء : 
(+*752-4) . 


الحل :- 
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Symbole The stack after 
this action 


7 ا‎ "7` is a number. We put it to the stack. 7 
5 "5` is a number. We put it to the stack. 75 
2 ا‎ "2` is a number. We put it to the stack. 752 


`-` is assign of operation. We have to take out two 73 


numbers (5 and 2) from the stack and implement the 


(5-2=3) operation. Then we put the result to the stack. 


`4' is a number. We put it to the stack. 734 


`*' js assign of operation. We have to take out two 712 
numbers (3 and 4) from the stack and implement the 
(3*4=12) operation. Then we put the result to the stack. 


`+" is assign of operation. We have to take out two 19 


numbers (7 and 12) from the stack and implement the 


(7+12=19) operation. Then we put the result to the 
stack. 


يشير الشكل التالي إلى : كيفية إستخدام ال )اء في إيجاد قيمة التعبير الحسابي الممثل 
بالصيغة البعديه (×اos†۴م)‏ :- 


210+96-1 
Push 2 pop 10 
Push 10 pop 2 


Push 2+10=12 
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Push 9 Pop 6 
Push 6 pop 9 
Push 9-6=3 

6 

9 3 

12 12 
Pop 3 pop answer = 4 
Push 12 
Push 12/3=4 

4 


2K 3K 3K 5K 3K 3K 3K 3K 3F 3F XK 3K 2K 2K 2K 3K 3K 3K 3K 2K 3K 3K 3K 2K 2K 3K 2K 3F 3K 3K 2K 2K 3K KF 5K 5K 5K 3K 3K 


الوحدة السايعه 
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تعريف الصف :- 


الصف هو قائمة من العناصر تحفظ بطريقة خطية بحيث يمكن حذق العناصر من طرق واحد 
يسمة المقدمة أو الرأس (ا١٥٣؟)‏ بينما يتم إضافة العناصر من الطرف الآخر » ويسمى 
المؤخرة أو الذيل )٠٠۵١(‏ والبيانات تكون في صورة خطية . 
مبدأ الصف هو : القادم أولآً له الخدمة first in first Ou‏ . 
الصغفوف في باسكال تنقسم إلى نوعين :- 
-١‏ الصفوق الخطية . 
-٣‏ الصفوف الدائرية : يمكن أن تكون عأ٣صة”ةل‏ أو عأأهاء وسنتناول هنا الع أأهاء . 

- هناك ميزة أساسية تتسم بها مؤخرة الصف )۲٠3۲(‏ وهي أنها تحدد موقع فارغ » أما 
المقدمة (۲۵۸۲) فإنه يحدد موقع أول عنصر تم تخزينه في العںعلا بواسطة ال۲۵۵۲ . 

- الحالة الإبتدائية هي التي یکون بہا العuعں‏ فارغ وھو أن ال٣۵ع٣‏ وال ۴۲۵۸٤‏ یکونان یحددان 
ال ”تاها رقم (ء) أي الحالة الإبتدائية » وذلك يتم بمناداة الإجراء (عااهنأ١|)‏ وبذلك يكون 
العuعاې‏ مهيء حتى يستقبل العناصر (الحالة الإبتدائية تدل على أن 2۲ع و fron‏ 
يحددان الموقع )١(‏ ). 

- العuعuېg‏ یکون فارغ إذا کان کل من ل۲۴۵۲ وا٣٥۲‏ يحددان لنفس الموقع بغض النظر عن 
ماإذا كان الموقع الذي يحددانه صفر أو غيره. 

- أما إذا كنا نريد أن نختبر هل أن الصف ممتلئ أم لا ؟؟؟ 
إذا کان ال٣۵ع٣‏ یقع خلف الt٣٥٣؟‏ مباشرة نقول أن العueعاې‏ ممتلی . 

- لابد أن نحافظ على أن ال۲۵۵۲ يحدد موقع فارغ » فإذا تم تخزين عنصر فلابد أن يتم نقل 
العم إلى نوقع فارع. 

- أما إذا كنا نريد أن نضيف عدد من الأعداد الصحيحة إلى الصف فإننا سنضيف العنصر مباشرة 
لأنه يتوفر لنا موقع فارغ » أما عندما كنا في ال)عةاء كنا عندما ننادي كلام كان لابد لنا بعد 
ذلك أن نجعل ال طها يصعد إلى موقع فارغ لأن ال مها لا يحدد موقع فارغ . 

- العمليات الأساسية التي تجرى على الصف هي :- 
-١‏ عملية تخزين العناصر |٣56۲‏ . 
-٣‏ عملية الحذف عأعاءd‏ . 
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بناء الصغفوف باستخدام المصغوقات في لغة باسكال 
Queue Implementation Using Arrays in Pascal‏ 
الإعلان عن الصف :- 


سنستخدم المصفوفة لتمثيل الصف في لغة باسكال » وذلك بعد أن نضيف بعض الضوابط 
التي تحكم عملية الإضافة والحذف من الصف » وسوف نستخدم متغیرین ۴۲0۸ و ٣2ع٣‏ 
لتحديد العنصر الأول والعنصر الأخير في الصف » بحيث يشير ۲٥١٤‏ إلى موقع العنصر الأول 
في الصف » و۵۲٠۲‏ إلى الموقع الذي يقع خلف موقع العنصر الأخير مباشرة في الصف » أي 
أن موقع ال۵۲٠۲‏ سوف يكون خالياً دائماً وبالتالي فإن صف من الأعداد الصحيحة يمكن 
تمثیله بالآتي :- 


program tewantythree; 
const maxqueue=100; 
type 
queue=record 
item:array [0. .maxqueue] of integer; 
rear, front: 0. .maxqueue; 
end; 
var q: queue; 
إن إستخدام المصفوفة لتمثيل الصف سوق يتيح الفرصة لحدوث 0۷8۲۴10۷ لأن المصفوفة‎ - 
. محدودة العناصر‎ 
-:(empty) allدلi‎ 
إن المتغیر ۲۴۵۹۲ سوف يكون خالياً دوماً > وهو يمثل مؤخرة الصف . أي أن الصف يكون خالياً‎ - 
-: إذا كان 2۲ع٣=اnصدr؟ وبذلك يمكن تمثيل العملية رأم"” ع بالدالة التالية‎ 
function empty (q : queue) :boolean; 
begin 
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if (q.rear=q. front) then 
empty :=true 

else 

empty :=false; 

end; 


الدالة (ااا۴):- 


function full (q: queue) :boolean; 

begin 

if q.front= (q.rear+1) mod maxqueue then 
full:=true 

else 

full:=false; 


end; 


عملية الإضافة للصف (٤١٥sہ):-‏ 


procedure insert (var q:queue; x:integer) ; 
begin 

if full (q) then 

writeln ('queue is full') 

else 

begin 


writeln ('enter x number:'); 
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readln (x) ; 

q.item[q.rear] :=x; 
q.rear:=(q.rear+t1) mod maxqueue; 
end; 


end; 


عملية الحذف من الصف (اءامل):- 


function delet (var q:queue) :integer; 
begin 

if empty (q) then 

writeln ('queue is empty') 

else 

begin 

delet:=q.item[q. front] ; 

q.front:= (q.front+1) mod maxqueue; 
end; 


end; 


عملية التهيئه (عzااھآ†آہ!):-‏ 


procedure initialize (var q: queue) ; 
begin 
q.rear:=0; 


q.front:=0; 
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end; 


عملية الطباعة (رهامءال):- 


procedure display (q: queue) ; 
var i:integer; 

begin 

if (q.front>q.rear) then 
for i:=q.front downto q.rear do 
write (q.item[i],' ') 

else 

begin 

for i:=q.front to q.rear do 
write (q.item[i],' '); 

end; 


end; 


مناداة البرامج الفرعية السابقة في البرنامج الرئيسي :- 


var P,x,no,i:integer; 


begin {main program} 


writeln ('1-->initialize',' ','2-->insert',' ','3-->delet',' ','14-- 
>display',' ','5-->exite'); 
repeat 


writeln ('what do you want???'); 
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readln (no) ; 

case no of 
1:initialize (q) ; 
2:begin 

for i:=1 to 4 do 
insert (q,x) ; 
end; 
3:p:=delet (q) ; 
4:display (q) ; 
end; 

until (no=5); 
writeln ('end..'); 
readln; 


end. 


Output:- 

1-->initialize 2-->insert 3-->delet 4-->display 5-->exite 
what do you want??? 

1 

what do you want??? 

2 

enter x number : 

34 

enter x number : 


4 
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enter x number: 

2 

what do you want??? 
4 

34 4 2 

what do you want??? 
3 

what do you want??? 


4 


what do you want??? 
5 


end... 


تمرین(5):- 
Linked List °‏ :- 
-١‏ أكتب برنامج يقوم بترتيب الأعداد تصاعدياً مستخدماً اللوائح المنفلقة . 
۲- اكتب برنامج يقوم بتخزين سجلات ٠١‏ موظفين مرتبة بإستخدام الإسم علماً بأن بيانات 
الموظف هي (الإسم ءالرقم المرتب) ثم قم بطباعة هذه البيانات. 
-٣‏ أعد كتابة البرنامج السابق على ألا يكون هنالك ترتيب . 
Stack Using Array °‏ :- 
-١‏ أكتب برنامج يقوم بتخزين عدد من الأعداد الصحيحة داخل ال)٤ةاء‏ ويتوقف البرنامج 
بادخال عدد سالب أو صفر » ثم يقوم البرنامج بطباعة هذه الأعداد على شاشة التنفيذ 


-٣‏ مستخدماً ال هاء أكتب برنامج يقوم بتخزين ۳ أعداد صحيحة ومن ثم يقوم البرنامج 
بجمع هذه الأعداد الثلاثة وتخزين الناتج على ال)عهاء ثم طباعة ناتج الجمع على 
شاشة التنفيذ ومن تم يقوم البرنامج بتحويل هذا الناتج من النظام العشري إلى النظام 
الثنائي وطباعة الرقم الثنائي على شاشة التنفيذ . 

-٣‏ أكتب برنامج يعمل على تخزين سجلات > طلاب على أن يقوم بطباعة هذه السجلات 
على شاشة التنفيذ علماً بأن بيانات الطالب هي (الإسم الرقم العم العنوان). 

-: Stack Using Pointer ° 
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-١‏ أكتب برنامح يخزن عدد من الأعداد الصحيحة ويتوقف البرنامح إذا كانت القيمة المدخلة 
فردية » ثم يقوم البرنامج بطباعة هذه الأعداد على شاشة التنفيذ. 

-٣‏ أكتب برنامج يعمل على تخزين سجلات ٠‏ موظفين ثم يقوم البرنامج بطباعة بيانات 
الموظفين على شاشة التنفيذ علماً بأن بيانات الموظف هي 
(الإسم,الرقم,المرتب.العنوان). 

-: Queue 

-١‏ أكتب برنامج يعمل على تخزين سجلات ۲ طلاب ثم يقوم البرنامج بطباعة بيانات 

الطلاب على شافة التقذ غلا أن يانات الظلات هن (الأسمالرق العم 


حل التمرين:- 
Linked List:-‏ 
program sixteen;‏ )1( 
type‏ 
1lptr=^node;‏ 
node=record‏ 
data: integer;‏ 
next: lptr;‏ 
end;‏ 
var n,no,r:integer;‏ 


head,x,y,b,s, target,pred:lptr; 


function creatlist:lptr; 
var p:lptr; 

begin 

new (Pp) ; 


p^.next:=nil; 
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creatlist:=p; 


end; 


function getnode:lptr; 


var newlptr:lptr; 


begin 


writeln ('enter the integer you want add to the list:'); 


readln (n) ; 


new (newlptr) ; 


with newlptr^ do 


begin 


data:=n; 


next:=nil; 


end; 


getnode:=newlptr ; 


end; 


procedure add (var head:lptr;newlptr:lptr) ; 


var temp: lptr; 


begin 


if (head=nil) then 


head:=newlptr 


else 


if (newlptr^*.data=head^.data) then 
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writeln ('this value is already in the list') 
else 

if (newlptr^.data<head^.data) then 

begin 

temp :=head; 

head:=newlptr ; 

newlptr^.next:=temp; 

end 

else 

if (newlptr^.data>head^*.data) and (newlptr^.data<head^.next^.data) then 
begin 

temp :=head^*.next; 

head^.next:=newlptr; 

newlptr^*.next:=temp; 

end 

else 

add (head^*.next,newlptr) ; 


end; 


procedure search (head:lptr; x:integer; var target,pred:lptr) ; 
begin 
if (head=nil) then 


begin 
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writeln (x,'is not found'); 


target:=nil; 


pred:=nil; 


end 


else 


if (head^.data=x) then 


begin 


target:=head; 


pred:=nil; 


end 


else 


if (head^.next^.data=x) then 


begin 


target:=head^*.next; 


pred:=head; 


end 


else 


if (x>head^.data) and (x<head^.next^.data) then 


begin 


writeln (x,'is not found') ; 


target:=nil; 


pred:=nil; 


end 
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else 


search (head^.next,x, target,pred) ; 


end; 


procedure delete (var head:lptr; x:integer) ; 


var target,pred: lptr; 


begin 


search (head,x, target ,pred) ; 


if (target=nil) then 


writeln ('this node is not found') 


else 


if (target=head) and (pred=nil) then 


begin 


head:=head^*.next; 


dispose (target) ; 


end 


else 


if (target^.next=nil) then 


begin 


pred^*.next:=nil; 


dispose (target) ; 


end 


else 
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begin 
pred^*.next:=target^.next; 
dispose (target) ; 

end; 


end; 


procedure printlist (head:lptr) ; 
begin 

while head<>nil do 
begin 

writeln (head^.data,' '); 
head:=head^*.next; 

end; 

end; 

begin {maim program} 

new (head) ; new (x) ; 

new (y) ; new (b) ; 
head:=creatlist; 


writeln ('1--->creatlist',' ','2--->getnode',' ','3--->add to the list',' 


۲ 
F 


'4--->search from the list',' ','5--->print list',' ','6--->delete node',' 


۲ 
4 


'7--->exit') ; 


repeat 
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writeln ('what do you want???'); 


readln (no) ; 


case no of 


1:head:=creatlist; 


2:s:=getnode; 


3:add (head, s) ; 


4:begin 


writeln ('enter number you want search:'); 


readln (r) ; 


search (head,r, target ,pred) ; 


end; 


5:printlist (head) ; 


6:begin 


writeln ('enter no you want to dalete'); 


readln (r) ; 


delete (head,r) ; 


end; 


end; 


until (no=7); 


if (no=7) then 


writeln ('you are out of the list'); 


writeln('by....... by I hope see you soon'); 


readln; 
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end. 


Output:- 


1--->creatlist 2--->getnode 3--->add to the list 4--->search from the list 
5---< 


print list 6--->delete node 7--->exit 
what do you want??? 

1 

what do you want??? 

2 

enter the integer you want add to the list: 
54 

what do you want??? 

3 

what do you want??? 

2 

enter the integer you want add to the list: 
34 

what do you want??? 

3 

what do you want??? 

5 

34 

54 

what do you want??? 

4 

enter number you want search: 

433 

433 is not found 


what do you want??? 
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6 

enter no you want to dalete 
34 

what do you want??? 

5 

54 

what do you want??? 

7 

you are out of the list 


BV as by I hope see you soon 


(2) program seventeen; 
type 

1ptr=^node; 
node=record 
name:string; 
salary:real; 
no:integer; 

next: lptr; 

end; 

var head,x,y,z,target,pred:lptr; 
1i1,b:integer; 


s,c:string; 


function creatlist:lptr; 
var pP:lptr; 

begin 

new (Pp) ; 


p^.next:=nil; 
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creatlist:=p; 


end; 


function getnode:lptr; 

var newlptr:lptr; number:integer; nam:string; sal:real; 
begin 

writeln ('enter employee name: '); 
readln (nam) ; 

writeln ('enter employee number: '); 
readln (number) ; 

writeln ('enter employee salary: '); 
readln (sal) ; 

new (newlptr) ; 

with newlptr^do 

begin 

name :=nam; 

no:=number ; 

salary:=sal; 

next:=nil; 

end; 

getnode:=newlptr ; 


end; 


procedure add (var head,newlptr:lptr) ; 
var temp: lptr; 

begin 

if head=nil then 

head: =newlptr 


else 
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if newlptr^*.name =head^.name then 
writeln ('this record alredy in the list') 
else 

if newlptr^*.name<head^.name then 

begin 

temp :=head; 

head:=newlptr ; 

newlptr^*.next:=temp; 

end 

else 

if (newlptr^*.name>head^.name) and (newlptr^.name<head^*.next^.name) then 
begin 

temp :=head^*.next; 

head^.next:=newlptr; 

newlptr^*.next:=temp ; 

end 

else 

add (head^*.next,newlptr) ; 


end; 


procedure search (head:lptr; w:string; var target,pred:lptr) ; 
begin 

if head=nil then 

begin 

writeln (w,'this name is not found in the list'); 
target:=nil; 

pred:=nil; 

end 


else 
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if head^.name=w then 

begin 

target:=head; 

pred:=nil; 

end 

else 

if head^.next^.name=w then 

begin 

target:=head^*.next; 

pred:=head; 

end 

else 

if (w>head^*.name) and (w<head^.next^.name) then 
begin 

writeln ('this record is not found') ; 
target:=nil; 

pred:=nil; 

end 

else 

search (head^.next,w, target, pred) ; 


end; 


procedure delete (var head:lptr; q:string) ; 
var target,pred: lptr; 

begin 

search (head,q, target,pred) ; 

if target=nil then 

writeln ('this node is not found') 


else 
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if (target=head) and (pred=ni1l) then 
begin 

head:=head^.next; 

dispose (target) ; 

end 

else 

if target^.next=nil then 
begin 

pred^*.next:=nil; 

dispose (target) ; 

end 

else 

begin 
pred^*.next:=target^.next; 
dispose (target) ; 

end 


end; 


procedure printlist (head:lptr) ; 

begin 

writeln ('name', ' r Tho," ','salary'); 
while head<>nil do 

begin 

with head^ do 

writeln (name, ' ',no,' ',salary) ; 
head:=head^.next; 

end; 


end; 
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begin{main program} 


write ('1--->creatlist',' ','2--->getnode && add',' ','3--->print',' '); 
writeln (' 4--->search',' ','5--->delete',' ','6--->exit'); 
repeat 


writeln ('what do you want???'); 
readln (b) ; 
case b of 
1:head:=creatlist; 
2 :begin 
for i:=1 to 3 do 
begin 
y:=getnode; 
add (head,y) ; 
end; 
end; 
3:printlist (head) ; 
4:begin 
writeln ('enter the name of employee you want to search: '); 
readln (s) ; 
search (head,s, target,pred) ; 
1f target<>nil then 
begin 
writeln ('record is found in the listand the data is: '); 
with target^ do 
writeln ('name is:',name, 'no=',no, 'salary=' ,salary) ; 
end 
end; 
5 :begin 


writeln ('enter name of employee you want to delete: '); 
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readln (c) ; 


delete (head,c) ; 


2--->getnode && add 3--->print 4--->search 5--->delete 6--- 


end; 

end; 
until b=6; 
if b=6 then 
writeln ('end. . 
readln; 


end. 


Output:- 


1--->creatlist 
>exit 


what do you want??? 


1 


what do you want??? 


name: 


number: 


salary: 


name: 


number: 


salary: 


name: 


2 

enter employee 
safiya 

enter employee 
1 

enter employee 
1323. 34 
enter employee 
najeh 

enter employee 
2 

enter employee 
2323. 5 


enter employee 
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noori 

enter employee number: 
3 

enter employee salary: 
3434. 5 


what do you want??? 


3 

name no salary 

najeh 2 2.3235565000E+03 
noori 3 3. 4343545000E+03 
safiya 1 1.3233434000E+03 


what do you want??? 

5 

enter name of employee you want to delete: 
noori 


what do you want??? 


3 

name no salary 

najeh 2 2.3235565000E+03 
safiya 1 1.3233434000E+03 


what do you want??? 


(۳) إذا لايكون هنالك ترتيب سيكون هذا البرنامج هو نفس البرنامج السابق مع إختلاف الإحراء 
4ه وسیکون کالتالې :- 


procedure add (var head,newlptr:lptr) ; 


begin 


if head = nil then 
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head:=newlptr 
else 
add (head^*.next,newlptr) ; 


end; 


Stack Using Array:- 

(1) program eighteen; 

const maxstack=100; 

type 

stack=record 

item:array [1..maxstack] of integer; 
top :0..maxstack; 

end; 


var s:stack; 


function empty (s:stack) :boolean; 
begin 

if (s.top=0) then 

empty :=true 

else 

empty :=false; 


end; 


E 


DATA STRUCTURES PASCAL Safiya Najeh 


function full (s:stack) :boolean; 
begin 

if (s.top=maxstack) then 
full:=true 

else 

full:=false; 


end; 


function pop (var s:stack) :integer; 
begin 

if empty (s) then 

writeln ('stack is empty') 

else 

begin 

pop:=s.item[s. top|] ; 

s.top:=s. top-1l; 

end; 


end; 


procedure push (var s:stack; x:integer) ; 
begin 
if full (s) then 


writeln ('stack is full') 
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else 


while (x>0) do 


begin 


s.top:=s. top+1l; 


s.item[s. top] :=x; 


writeln ('enter x number: ') ; 


readln (x) 


end; 


end; 


procedure initialize (var s:stack) ; 


begin 


s.top:=0; 


end; 


function stacktop (s:stack) :integer; 


begin 


if empty (s) then 


writeln ('stack is empty') 


else 


stacktop:=s.item[s. top] ; 


end; 
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procedure display (s:stack) ; 


var i:integer; 


begin 


if empty (s) then 


writeln ('stack is empty') 


else 


begin 


for i:=s.top downto 0 do 


write (s.item[i],' '); 


end; 


end; 


procedure addtop (var s:stack) ; 


var opl,op2:integer; 


element : boolean; 


begin 


op2 :=pop (s) ; 


if empty (s) then 


begin 


element :=true; 


push (s,op2) ; 


end 


else 
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begin 
op1:=pop (s) ; 
element:=false; 
push (s,op1+op2) ; 
end; 


end; 


procedure addstack (var s:stack) ; 
var element:boolean; 
op1,op2:integer; 

begin 

repeat 

addtop (s) ; 

until element; 


end; 


var no,x,i,PpP,b:integer; 
begin {main program} 


write ('1-->initialize' ,'2-->empty' ,'3-->full' ,'4-->push' ,'5-->pop' ,' 6-- 
>stacktop' ,'10-->exite') ; 


writeln (' 7-->display',' '{,'8-->addtop',' ','9-->addstack'}) ; 
repeat 
writeln ('what do you want??'); 


readln (no) ; 
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case no of 


1:initialize (s) ; 


2:begin 


if empty (s) then 


writeln ('the stack is empty') 


else 


writeln ('the stack is not empty'); 


end; 


3:begin 


if full (s) then 


writeln ('the stack is full') 


else 


writeln ('the stack is not empty'); 


end; 


4:begin 


writeln ('enter x number') ; 


readln (x) ; 


push (s,x) ; 


end; 


5:p:=pop (s) ; 


6:b:=stacktop (s) ; 


7:display (s); 


8:addtop (s) ; 
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9:addstack (s) ; 

end; 

until (no=10) ; 
writeln ('end..... YÊ 
readln; 


end. 


Output:- 


1-->initialize2-->empty3-->ful1l14-->push5-->pop6-->stacktop10-->exite7-- 
>display 


what do you want?? 
1 
what do you want?? 
2 
the stack is empty 
what do you want?? 
4 


enter x number 


enter x number: 


enter x number: 


enter x number: 


enter x number: 
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enter x number: 

0 

what do you want?? 
7 

2 444 3 11 12 ° 
what do you want?? 
2 

the stack is not empty 
what do you want?? 
5 

what do you want?? 
7 

444 3 11 12 ° 

what do you want?? 
10 


end... 


(2)program nineteen; 

const maxstack=100; 

type 

stack=record 

item:array [1..maxstack] of integer; 
top :0..maxstack; 

end; 


var s:stack; 


function empty (s:stack) :boolean; 
begin 


if (s.top=0) then 
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empty :=true 
else 
empty :=false; 


end; 


function full (s:stack) :boolean; 
begin 

if (s.top=maxstack) then 
full:=true 

else 

full:=false; 


end; 


function pop (var s:stack) :integer; 
begin 

if empty (s) then 

writeln ('stack is empty') 

else 

begin 

pop:=s.item[s. top|] ; 

s.top:=s. top-1l; 

end; 


end; 


procedure push (var s:stack; x:integer) ; 
var i:integer; 

begin 

if full (s) then 


writeln ('stack is full') 
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else 

begin 

s.top:=s. top+t1l; 
s.item[s. top] :=x; 
end; 


end; 


procedure initialize (var s:stack) ; 
begin 
s.top:=0; 


end; 


function stacktop (s:stack) :integer; 
begin 

if empty (s) then 

writeln ('stack is empty') 

else 

stacktop:=s.item[s. top] ; 


end; 


procedure display (s:stack) ; 
var i:integer; 

begin 

if empty (s) then 

writeln ('stack is empty') 
else 

begin 

for i:=s.top downto 0 do 


write (s.item[i],' '); 
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end; 


end; 


procedure addtop (var s:stack) ; 
var opl,op2:integer; 
element: boolean; 
begin 

op2:=pop (s) ; 

if empty (s) then 
begin 

element:=true; 

push (s,op2) ; 

end 

else 

begin 

op1:=pop (s) ; 
element:=false; 

push (s,op1+op2) ; 

end; 


end; 


procedure addstack (var s:stack) ; 
var element:boolean; 
op1,op2:integer; 

begin 

repeat 

addtop (s) ; 

until element; 


end; 
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var f1, £2:boolean; 
nOo,x,i,P,b,opl1l,op2:integer; 
begin {main program} 


write ('1-->initialize' ,'2-->empty' ,'3-->full' ,'4-->push' ,'5-->pop' ,' 6-- 
>stacktop' ,'10-->exite'); 


writeln (' 7-->display',' ','8-->addtop',' ','9-->addstack'); 
repeat 

writeln ('what do you want??'); 
readln (no) ; 

case no of 

1:initialize (s) ; 

2 :begin 

if empty (s) then 

writeln ('the stack is empty') 

else 

writeln ('the stack is not empty') ; 
end; 

3:begin 

if full (s) then 

writeln ('the stack is full') 

else 

writeln ('the stack is not empty') ; 
end; 

4:begin 

for i:=1 to 3 do 

begin 

writeln ('enter x number: ') ; 
readln (x) ; 


push (s,x) ; 
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end; 

end; 

5:p:=pop (s) ; 
6:begin 
b:=stacktop (s) ; 
writeln ('sum=' ,b) ; 
x:=b mod 2; 
writeln ('decimal number=',x) ; 
end; 

7:display (s) ; 
8:addtop (s) ; 
9:addstack (s) ; 
end; 

until (no=10) ; 
writeln ('end...'); 
readln; 


end. 


Output:- 


1-->initialize2-->empty3-->ful14-->push5-->pop6-->stacktop10-->exite7-- 
>display 


8-->addtop 9-->addstack 
what do you want?? 

1 

what do you want?? 

4 

enter x number : 

12 


enter x number: 
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enter x number: 


what do you want?? 
7 

44 1 12 

what do you want?? 
8 

what do you want?? 
9 

what do you want?? 
6 

sum=57 

decimal number=1 
what do you want?? 
10 


end... 


(3) program tewanty; 
const maxstack=5; 
type 
studant=record 
name:string; 
no:integer; 
age:integer; 
address:string; 
end; 
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stack=record 

item:array [1..maxstack] of studant; 
top :0..maxstack; 

end; 


var s:stack; 


function empty (s:stack) :boolean; 
begin 

if (s.top=0) then 

empty :=true 

else 

empty :=false; 


end; 


function full (s:stack) :boolean; 
begin 

if (s.top=maxstack) then 
full:=true 

else 

full:=false; 


end; 


procedure push (var s:stack; x:integer) ; 
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','address'); 


',s.item[i] .age, ' 


begin 


if full (s) then 


writeln ('stack is full') 


else 


s.top:=s. top+1l; 


end; 


procedure initialize (var s:stack) ; 


begin 


s.top:=0; 


end; 


procedure display (s:stack) ; 


var i:integer; 


begin 


if empty (s) then 


writeln ('stack is empty') 


else 


begin 


writeln ('name',' ', 'number' ,' "age" ;'" 


for i:=s.top downto 1 do 


writeln (s.item[i] .name, ' ',s.item[i].no, ' 


',s.item[i] .address) ; 


end; 
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end; 


var name:string; address:string; 


n,x,i,age,no:integer; 


begin {main program} 


writeln ('1-->initialize',' ','2-->empty',' ','3-->full',' ','4-->push',' 
','5-->display',' ','6-->exite'); 
repeat 


writeln ('what do you want??'); 


readln (n) ; 


case n of 


1:initialize (s) ; 


2:begin 


if empty (s) then 


writeln ('the stack is empty') 


else 


writeln ('the stack is not empty') ; 


end; 


3:begin 


if full (s) then 


writeln ('the stack is full') 


else 


writeln ('the stack is not empty') ; 


end; 
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4:begin 

for i:=1 to 4 do 

begin 

write ('enter studant name:',i,' '); 
readln (s.item [i] .name) ; 

write ('enter studant number:',i,' '); 
readln (s.item[i] .no) ; 

write ('enter studant age:',i,' '); 
readln (s.item[i] .age) ; 

write ('enter studant address:',i,' '); 
readln (s.item [i] .address) ; 

push (s,x) ; 

end; 

end; 

5:display (s) ; 

end; 

until (n=6) ; 

writeln ('end...'); 

readln; 


end. 

Output:- 

1-->initialize 2-->empty 3-->full 4-->push 5-->display 6-->exite 
what do you want?? 


1 
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what do you want?? 

4 

enter studant name:1 safiya 
enter studant number:1 1 

enter studant age:1l 19 

enter studant address:1 Iraq 
enter studant name:2 banan 

enter studant number:2 2 

enter studant age:2 5 

enter studant address:2 tunis 
enter studant name: 3 haneen 
enter studant number:3 3 

enter studant age:3 25 

enter studant address: 3 monester 
enter studant name:4 fatima 
enter studant number:4 4 

enter studant age:4 21 

enter studant address: 4 khartoum 


what do you want?? 


5 

name number age address 
fatima 4 21 khartoum 
haneen 3 25 monester 
banan 2 5 tunis 
safiya 1 19 Iraq 


what do you want?? 
6 


end... 
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Stack Using Pointer:- 
(1)program tewantytwo; 
type 

stack=^node; 
node=record 

item: integer; 
next:stack; 

end; 

var s:stack; 

function empty (s:stack) :boolean; 
begin 

if s=nil then 

empty :=true 

else 

empty :=false; 


end; 


function pop (var s:stack) :integer; 
var p:stack; 

begin 

new (Pp) ; 

if empty (s) then 


writeln ('stack is empty') 
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else 


begin 


pop:=s^.item; 


pP:=s; 


s:=s^.next; 


dispose (p) ; 


end; 


end; 


procedure push (var s:stack; x:integer) ; 


var p:stack; 


begin 


writeln ('enter x number:'); 


readln (x) ; 


while x mod 2=0 do 


begin 


p^.item:=x; 


p^.next:=s; 


s:=p; 


new (Pp) ; 


writeln ('enter x number:'); 


readln (x) ; 


end; 
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end; 


procedure initialize (var s:stack) ; 


begin 


s:=nil; 


end; 


procedure display (s:stack) ; 


begin 


if empty (s) then 


writeln ('stack is empty') 


else 


while s<>nil do 


begin 


write (s^*.item,' '); 


s:=s^.next; 


end; 


end; 


var no,x,p:integer; 


begin{main program} 


writeln ('1-->initialize',' ','2-->push',' ','3-->display',' ','4-->pop',' 
','5-->exite'); 
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repeat 

writeln ('what do you want???'); 
readln (no) ; 

case no of 
1:initialize (s) ; 
2:push(s,x) ; 
3:display (s) ; 
4:p:=pop (s) ; 
end; 

until (no=5) ; 
readln; 


end. 


Output:- 


1-->initialize 2-->push 3-->display 4-->pop 5-->exite 
what do you want??? 
1 

what do you want??? 
2 

enter x number : 

12 

enter x number: 

4 

enter x number: 

5 


what do you want??? 
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what do you want??? 


5 


(2)program tewantufive; 
type 

stack=^node; 
node=record 
name:string; 
address:string; 
no:integer; 
salary:real; 
next:stack; 

end; 


var s:stack; 


function empty (s:stack) :boolean; 
begin 

if s=nil then 

empty :=true 

else 

empty :=false; 


end; 
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function pop (var s:stack) :integer; 


var p:stack; 


begin 


new (Pp) ; 


if empty (s) then 


writeln ('stack is empty') 


else 


begin 


pop:=s^.no; 


pP:=s; 


s:=s^.next; 


dispose (p) ; 


end; 


end; 


procedure push (var s:stack) ; 


var p:stack; na,addr:string; 


r,i:integer; sa:real; 


begin 


for i:=1 to 2 do 


begin 


write ('enter name:',i,' '); 
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readln (na) ; 

write ('enter address:',i,' '); 
readln (addr) ; 

write ('enter number:',i,' '); 
readln (r) ; 

write ('enter salary:',i,' '); 
readln (sa) ; 

new (P) ; 

p^.name:=na; 
p^.address:=addr; 

p^.no:=r; 

p^.salary:=sa; 

p^.next:=s; 

s:=p; 

end; 


end; 


procedure initialize (var s:stack) ; 
begin 
s:=nil; 


end; 


procedure display (s:stack) ; 
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begin 

if empty (s) then 

writeln ('stack is empty') 

else 

writeln ('name', ' ','address',' ', 'number',' ','salsry'); 
while s<>nil do 

begin 

writeln (s^*.name,' ',s^.address,' ',s^.no,' ',s^.salary); 
s:=s^.next; 

end; 


end; 


var no,x,p:integer; 
begin{main program} 


writeln ('1-->initialize',' ','2-->push',' ','3-->pop',' ','4-->display',' 


','5-->exite'); 

repeat 

writeln ('what do you want???'); 
readln (no) ; 

case no of 

1:initialize (s) ; 

2:push(s) ; 

3:p:=pop (s) ; 


4:display (s) ; 
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end; 

until (no=5); 
writeln ('end...'); 
readln; 


end. 


Output:- 


1-->initialize 2-->push 3-->pop 4-->display 5-->exite 
what do you want??? 
1 


what do you want??? 


enter name:1 yosof 

enter address:1 khartoum 
enter number:1 4 

enter salary:1 123.334 
enter name:2 banan 

enter address:2 khartoum 
enter number:2 7 

enter salary:2 23324.332 
enter name: 3 haneen 
enter address:3 khartoum 
enter number:3 1 

enter salary:3 2334.5654 
enter name:4 rashed 
enter address:4 khartoum 
enter number:4 9 


enter salary:4 232.5654 
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salsry 


2.239423211 18+06 


2.3256540000E+02 


2.3345654000E+03 


2.3324333200+4 


1.2333400000E+02 


enter name:5Š5 riad 
enter address:5 birmingham 
enter number:5 12 
enter salary:5 2334232.1121 


what do you want??? 


4 

name address number 
riad birmingham 12 
rashed khartoum 9 
haneen khartoum 1 
banan khartoum 7 
yosof khartoum 4 


what do you want??? 
5 


end... 


Queue:- 

program tewantysix; 
const maxqueue=10; 
type 
studant=record 
name:string; 
number: integer; 
age:integer; 

end; 


queue=record 
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item:array [0. .maxqueue] of studant; 
rear, front: 0. .maxqueue; 
end; 


var q: queue; 


function empty (q: queue) :boolean; 
begin 

if (q.rear=q. front) then 

empty :=true 

else 

empty :=false; 


end; 


function full (q: queue) :boolean; 

begin 

if q.front=q.rear+t1 mod maxqueue then 
full:=true 

else 

full:=false; 


end; 


procedure insert (var q: queue) ; 


begin 
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if full (q) then 


writeln ('queue is full') 


else 


q.rear:=(q.rear+t1) mod maxqueue; 


end; 


procedure initialize (var q: queue) ; 


begin 


q.rear:=0; 


q.front:=0; 


end; 


procedure display (q: queue) ; 


var i:integer; 


begin 


writeln ('name', ' ', 'number',' ','age'); 


if (q.front>q.rear) then 


for i:=q.front downto q.rear do 


writeln (q.item[i] .name, ' ',q.item[i] .number, ' ',q.item[i] .age) 


else 


begin 


for i:=q.front to q.rear do 


writeln (q.item[i] .name, ' ',q.item[i] .number, ' ',q.item[i] .age) 
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end; 


end; 


var P,x,no,i,number, age: integer; 
name:string; 
begin {main program} 


writeln ('1-->initialize',' ','2-->insert',' ','3-->display',' ','4-- 


>exite'); 

repeat 

writeln ('what do you want???'); 
readln (no) ; 

case no of 

1:initialize (q) ; 

2 :begin 

for i:=1 to 3 do 

begin 

write ('enter studant name:',i,' '); 
readln (q.item[i] .name) ; 

write ('enter studant number:',i,' '); 
readln (q.item[i] .number) ; 

write ('enter studant age:',i,' '); 
readln (q.item [i] .age) ; 

insert (q) ; 


end; 
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end; 


3:display (q) ; 


(no=4) ; 


end; 


until 


writeln ('end..'); 


readln; 


end. 


Output:- 


1-->initialize 2-->insert 3-->display 4-->exite 


what do you want??? 


1 


what do you want??? 


studant name:1 alaa 
studant number:1 5 
studant age:1 10 
studant name:2 khaked 
studant number:2 8 
studant age:2 11 
studant name: 3 banan 
studant number:3 4 


studant age:3 8 


2 


enter 


enter 


enter 


enter 


enter 


enter 


enter 


enter 


enter 


what do you want??? 
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khaked 8 11 
banan 4 8 
what do you want??? 
4 


end... 


3K XK 5K 5K 3K 3K 2K 3K 3K 3K 2K 3K 3K 3K 3K 3K 3K 2K 3K 3K 3K 3K 2K 3K 3F 3K 3K 3K 2K 2K 3K 3K 3K 5K 2K 2K 2K 3K 3K 
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خوارز سات البحث 
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-: Linear Search „رضطخëلlاl خوارزمية الزلبجحن‎ )۸-١( 
. البحث الخطي يبحث في بيانات غير مرئية‎ ٠ 


ال 2 فقي رة وفة مثلاً عن عنصر " صرق '" إذا وجدنا العنصر نجدد موقعه وإلا نعطي 
رسالة بعدم وجوده . 


الخوارزمية :- 
-١‏ أصف العنصر المراد البحث عنه "۳| " إلى نهاية المصفوفة ۳ع¡ = ك(1+,)A۸‏ . 
- اجعلٍ 1= Loc‏ . 
-٣‏ کرر ا وب بحیث e٣‏ )| # (٤٥ا)A‏ . 
Loc = Loc+1 -|‏ . 
ب- انهي التكرار. 


ے- إذا كان Loc = N+1‏ أظهر رسالة بعدم وجود العنصر والا اکتب موقعه وهو ال ع0ا . 


مثال (۱) :- إذا كانت لدينا المصفوفة التالية 


بحث عن الرقم (۳) 


Loc=1 

A[Loc]#item —ڪz‎ ۸[1|#+3 +ج—‎ 1343 +7. 

Loc=2 

A[Loc]#item ڪج—‎ [2|43 +> 343 >F. 
إِذاً الرقم (۲) موجود في الموقع الثاني.‎ 
مثال (۳) :- إذا كانت لدينا المصفوفة‎ 
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A 11313 |118 


بحث عن الرقم (۳۰) 


N=3 ج‎ N+1=4 


^ |3 3 118 30 


Loc=1 
A[Loc]#itemn ڪج—‎ ۸[1|]#30 +13730 =>. 
Loc=2 
A[Loc]#itemn ڪج—‎ ۸[|2]#30 +3730 +>. 
Loc=3 
A[Loc]#item ڪج—‎ ۸[3|]#30 + 30730 ¬+ F۴. 


إذا كان ۳=1+1 ٠10ا‏ أظهر رساله بعدم وجود العنصر وإلا أكتب موقع العنصر وهو ال |0٥‏ » وهنا تحقق 
هذا الشرط لذلك نطبع رساله تفيد بعدم وجود العنصر .)١*(‏ 


Example:- 


program linear _searchl; 

const m=10; 

var a:array[1..m] of integer; 
item,loc,i,n:integer; 

begin 

n:=m-1; 
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writeln ('enter the data of array a:'); 
for i:=1 to n do 

begin 

writeln ('enter a[',i,']: '); 

readln (a[i]) ; 

end; 

writeln; 

writeln ('enter your item: '); 

readln (item) ; 

a[n+1] :=item; 

loc:=1; 

while a[loc]<>item do 

loc:=loc+1; 

if loc=n+1 then 

writeln ('the item is not found') 

else 

writeln ('the item locationn is',loc); 
readln; 


end. 


Output:- 

enter the data of array a: 
enter a[1]: 12 
enter a[2]: 1 

enter a[3]: 3 

enter a[4]: 5 

enter a[5]: 2 

enter a[6]: 13 
enter a[7]: 5 

enter a[8]: 77 
enter a[9]: 4 

enter your item: 12 


the item locationn is1 
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Example:- 


اكتب برنامج لتخزين سجلات عدد من الطلاب داخل ملف فيزيائي ثم يقوم هذا البرنامج بطباعة 
سجلات الطلاب على شاشة التنفيذ » ثم استخدم خوارزمية البحث الخطي للبحث عن سجل ما 
(حقل البحث هو الاسم ) إذا وجده يطبع بإنانه وإذ لم يجده يطبع رسالة بعدم وجوده . 
program linear_search2;‏ 
type‏ 
student=record‏ 
name:string [20];‏ 
no:integer;‏ 
faculty:string [20];‏ 
end;‏ 
var st:student;‏ 
c:char;‏ 
i:integer;‏ 
s:string [20];‏ 
f:file of student;‏ 


procedure linearsearch (s:string) ; 
begin 

reset (f) ; 

read(f,st) ; 

while (st.name<>s) and (not eof(f)) do 
read(f,st) ; 

with st do 

if name=s then 

begin 

writeln ('name....',name) ; 
writeln('no....',no); 
writeln('faculty....', faculty) ; 

end 

else 

writeln ('the record is not found') ; 
close(f); 

end; 


begin{main program} 
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assign (f,'c:\file.doc') ; 

rewrite(fÊ) ; 

writeln ('enter the data or student: ') ; 

for i:=1 to 2 do 

with st do 

begin 

writeln ('enter the name,no, faculty for student',i); 
readln (name) ; 

readln (no) ; 

readln (faculty) ; 

write(f,st); 

end; 

close(f); 

reset(f); 

writeln ('name no faculty') ; 

while not eof(f) do 

begin 

read(f,st) ; 

with st do 

writeln (name, ' ' RO; " ',faculty) ; 

end; 

close(f); 

repeat 

writeln ('enter the name of student to seatch:'); 
readln (s) ; 

l1linearsearch (s) ; 

writeln('enter y to continue or any key to stop:'); 
readln (c) ; 

until c<>'y'; 

readln; 


end. 


Output:- 
enter the data or student: 
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enter the name,no, faculty for student1l 
safiya 

1 

compu ter 


enter the name,no, faculty for student2 


fatima 

2 

shari3a 

name no faculty 
safiya 1 computer 
fatima 2 shari3a 


enter the name of student to search: 


safiya 
name....safiya 
no....1 
faculty. . .. computer 


enter y to continue or any key to stop: 


q 


- خوارزمية البحث الخطي هي من أبطئ الخوارزميات المستخدمة في البحث نسبة لأن هذه 
الخوارزمية تبحث من بداية الهيكل إلى نهاية وبالتالي تأخذ وقت طويل . 

- عندما تقوم بتخزينه البيانات على أي هيكل من هياكل البيانات فإن هذه البيانات تخزن بصورة 
عشوائية . 

- لا يشترط عملية الترتيب البيانات عند البحث عنها بواسطة " Sea ٤C1‏ اaعLin‏ " » وتتم مقارنة 
العنصر المراد البحث عنه مع العنصر الأول المخزن فإذا تمت عملية المطابقة نقوم بالعمل المراد 
إجراءه على هذا العنصر » أما إذا لم يتحصل عليه فسينتقل إلى العنصر التالي وهكذا إلى آخر 
عنصر . 
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تمرین(5):- 
-١‏ اكتب برنامج يقوم بتخزينه مجموعة من الأسماء على مصفوفة ثم يقوم البرنامج بالبحث 
کن اف مين باخام ال الكلك:: 
۲- اکتب برنامج يقوم بتخزينه سجلات ٠١‏ طلاب على مصفوفة » ثم يقوم البرنامج بالبحث عن 


سجل طالب معين باستخدام حقل الرقم إذا وجده يطبع بياناته وإذا لم يجده يطبع رسالة 
نقذ وك هذا الستكل فسخدها المت الخطن : 


حل التمرين :- 


(1) program linear_search3 

const m=10; 

var a:array[1..m] of string; 
loc,i,n:integer; 

name:string; 

begin 

n:=m-1; 

writeln('enter the data of array a:'); 
for i:=1 to n do 

begin 

write ('enter a[',i,']:'); 

readln (a[i]) ; 

end; 

writeln ('enter your name') ; 
readln (name) ; 

a[n+1] :=name; 

loc:=1; 

while a[loc]<>name do 
loc:=loc+1; 

if loc=n+1 then 

writeln ('the name is not found') 
else 

writeln ('the name location is',loc); 
readln; 


end. 


Output:- 
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enter the data of array a: 
enter a[1]:safiya 
enter a[2] :haneen 
enter a[3] : fatima ' 
enter a[4]:alla 
enter a[5] :banan 
enter a[6]:yosof 
enter a[7]:khlood 
enter a[8] :mohamed 
enter a[9] :ahmad 
enter your name 
haneen 


the name location is2 


(2) program linear_search4; 
const m=3; 

type 

student=record 

name:string [10]; 
no:integer; 
faculty:string [10]; 

end; 

var 

a:array [1..m] of student ; 
loc,item,i,n:integer; 
begin 

n:=m-1; 


writeln('enter the data of array a:'); 
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for i:=1 to n do 

with a[i] do 

begin 

write ('enter name:') ; 

readln (name) ; 

write ('enter no:'); 

readln (no) ; 

write ('enter faculty:'); 

readln (faculty) ; 

end; 

writeln ('enter the number of student to search:'); 
readln (item) ; 

a[n+1].no:=item; 

loc:=1; 

while a[loc] .no<>item do 
loc:=loc+1; 

if loc=n+1 then 

writeln ('the record is not found') 
else 

with a[loc] do 

begin 

writeln ('name: ',name) ; 

writeln ('no:',no); 

writeln ('faculty:' , faculty) ; 
writeln ('the record location is',loc); 
writeln ('end..'); 

end; 

readln; 


end. 


Output:- 
enter the data of array a: 


enter name: ahmad 


166 


DATA STRUCTURES PASCAL Safiya Najeh 


enter no:12 

enter faculty : computer 
enter name :mohamed 
enter no:1l 

enter faculty : computer 


enter the number of student to search: 


name :mohamed 

no:1 

faculty : computer 

the record location is2 


end... 
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-: Binary Search يûئاlنتئلاl خوارزمية البحن‎ )۸-2( 


لإستخدام هذه الطريقة يجب أن تكون البيانات مرتبة ترتيباً تصاعدياً أو تنازلياً نلخص هذه الطريقة 
في أننا نقوم في كل مرحلة من مراحل البحث بمقارنة الهدف المراد البحث عنه مع العنصر 
الأوسط » إذا كان متساويين يكون قد تحدد موقع العنصر المراد عنه » أما إذا كان العنصر الأوسط 
أكبر من الهدف فيجب علينا البحث في النمو الأسفل من المصفوفة .أما إذا كان العنصر الأوسط 
أصغر من الهدف فيجب علينا البحث في النصف الأعلى من المصفوفة » نكرر هذه العملية بالنسبة 
للنصف الأسفل والنصف الأعلى ونتعامل معه كما لو كان مصفوفة قائمة بذاتها حتى نجد الهدق أو 
ينتهي البحث في دالة عدم عثورنا على الهدف . 


الخوارزمية :- 


. احسب قيمة المؤشر الدليلي للعنصر الأوسط‎ -١ 

. إذا كان العنصر الأوسط مساوياً للهدف أرجع قيمة المؤشر الدليلي للعنصر الأوسط‎ -٣ 

-٣‏ إذا كان العنصر الأوسط أكبر من الهدف ابعث في المصفوفة الجزئية ذات المؤشرات 
الدليلية من موقع العنصر الأول إلى "موقع العنصر الأوسط-٠"‏ . 

-٤‏ إذا كان العنصر الأوسط أصغر من الهدف فابعث في المصفوفة الة 5 الھۇ شات 
الدلك من" مقع الفضر الأونط "١١‏ الى موق العنضر الأخير : 


مثال توضيحي:- 
8 7 6 5 4 3 2 1 
A| 1| 3| 9] 21| 33| 40| 90| 99‏ 
ه موقع العنصر الأوسط= موقع العنصر الأول+الموقع الأ 
2 


ه المطلوب البحتث عن العنصر (۳٣؟)‏ 
موقع العنصر الوسط 1+8(/2=4) 
Target=33‏ 


If A[4]=target —>z 21-33 ج—=‎ false. 


اجه الكو( فو المتة 
8 7 6 5 


A 33 40 90 199 


)5+8(/2=6 موقع العنصر الأوسط‎ 
If A[6]=target —yz 40=30 —جz‎ false. 


ه ابحث عن الرقم (۲۳) في المصفوفة 
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A 33 |40 


)5+6(/2=5 موقع العنصر الوسط‎ 
If A[5]=targei =——> 33-33 =—- True. 


أ الفضر( ١‏ مهود فى الخو د 


Example:- 


program binary_searchl; 

type 

data=array [1..10] of integer; 
var i,b,target:integer; 


a:data; 


function binarysearch (var a:data; target: integer) :integer; 


var first,last,midd: integer; 


begin 
first:=1; 
last:=10; 
repeat 


midd:=(first+last) div 2; 

if a[midd] >target then 

last:=midd-1 

else 

first:=midd+1; 

until (first>last) or (a[midd]=target) ; 
if a[midd] =target then 
binarysearch:=midd 

else 

binarysearch:=0; 


end; 


begin{main program} 


writeln ('enter the data of array a:'); 
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for i:=1 to 10 do 

readln (a[i]) ; 

writeln ('enter the target:'); 
readln (target) ; 
b:=binarysearch (a, target) ; 
writeln('location of target=' ,b) ; 
writeln ('target=',a[b]) ; 

readln; 


end. 


Output:- 

enter the data of array a: 
۱۲ 

۳۳ 

۱۲ 

۳۳ 

1۷ 

۸٦ 

٤ 

۲ 

۷۸ 

۹٦ 

enter the target: 

۱۲ 

location of target=1 


target=12 
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خوارزميات البحث السريع لا أستطيع استخدامها داخل هيكل معين إلا إذا كانت البيانات 
مرتبة » وإذا أردت أن أبحث والبيانات غير مرتبة لا أستطيع الا استخدام خوارزميات البحث 

الخطي وهذه من أنواع البحث الخاصة بالمصفوفات المرتبة وهو البحث الثنائي . 

. عندما نتحدث عن خوارزمية البحث الثنائي يتضح لنا أنها أسرع‎ ١ 
دة الكوارزهة لا أستطيع استخدافها ما لم أرتت الكاصر المخزة تضاغدا أو ثنازلناً وشذة‎ 
الخوارزمية يفترض أن تسبقها خوارزمية الترتيب » أو لابد أن يقوم المستخدم بتخزين هذه‎ 

البيانات بصورة مرتبة سواء أكان تصاعدياً أو تنازلياً . 

عندما نتحدث عن البحث في المصفوفة فإننا نتحدث عن المصفوفة المرتبة تصاعدياً أو 
تنازلياً أكبر من أو تساوي القيمة قيد البحث " الهدف " » وذلك عندما تكون المصفوفة مرتبة 
تصاعدياً > وليس هناك داع لفحص يأتي المصفوفة » لأن الباقي من العنصر سيكون 

بالتأكيد أكبر من القيمة المطلوبة . 

" وطريقة البحث هنا هي أننا لدينا مصفوفة تم تخزين عليها أعداد صحيحة أو أي نوع آخر من 
أنواع البيانات وهذه البيانات مرتبة ترتيباً تصاعدياً » أولاً تقوم بتحديد العنصر الموجود في 
وسط المصفوفة وفي كل مرحلة من مراحل البحث تقوم بمقارنة الهدف " أعل۲ه) " مع 

العنصر الأوسط " element‏ eاiddص‏ " ویکون لدینا ثلاث احتمالات :- 

.١‏ إما أن يكون الأةو۲ة† مساوياً العنصر الموجود في الوسط وتكون بذلك قد انتهينا من 
العمل وأننا قمنا بتحيد ال١‏ 0ا†ةعها بالنسبة الأهواها . 

.٣‏ وإما أن يكون العنصر الأوسط أكبر من ال اع2۲9 فهذا يعني أننا سنقوم بتقسيم 
المصفوفة الى جزئية وفي هذه الحالة سيتم البحث من بداية المصفوفة الى العنصر 
الموجود قبل العنصر الأوسط المصفوفة الجزئية وبهذا يتم عملية البحث في عدد من 
العناصر ويالتالي يكون البحث أسرع » أي يتم البحث في الجزء الأسفل من المصفوفة . 

.٣۳‏ وإما أن يكون العنصر الأوسط أصغر من ال اوه فإننا ستقوم بالبحث من العنصر التالي 
للعنصر الأوسط وستقوم بتكرار هذه العملية لكل مصفوفة جزئية الى أن نجد الهدفق أو 
نطبع رسالة تقيد بعدم وجوده » أي أن البحث سيكون في الجزء العلوي من المصفوفة . 


تمرین (6):- 

-١‏ اكتب برنامج يعمل على تخزين مجموعة من الاسماء على مصفوفة مع مراعاة ترتيب 
الأسماء بمس حروف الهجاء » والبحث عن اسم معين وإظهار موقعة باستخدام البحث 
الثنائي وإذا لم يجده يطبع رسالة تفيد ذلك 

اكه رتام يخرن سكلات 6 موظفين على مضفوقة حت تاناق الموظف هي الاس : 
الرقم » المرتبه » العضو وهنا يفترض مراعاة الترتيب في نقل الرقم سواء أدان ترتيب الارقام 
ترتيب تصاعدي أو ترتيب تنازلي وطباعة كافة السجلات على شاشة التنفيذ » ثم يقوم 
البرنامج بالبحث عن سجل موظف معين باستخدام الرقم ويكون البحث : 

أ/ البحث عن السجل الأول . 


ا التخت كى جل الفوظف الاخ 
لاحت عن ل المطف الهو في وط الم وة 
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وبذلك يكون لدينا أكثر من شاشة الامالاه واحدة وذلك حتى يتسنى لنا التأكد من صحة البرنامج 
بصورة صحيحة . 


-: حل التمرين‎ 
(1) program binary_search2; 
type 
data=array [1..10] of string; 
var i,b:integer; 
target:string; 


a:data; 


function binarysearch (var a:data;target:string) :integer; 
var first,last,midd: integer; 

begin 

first:=1; 

last:=10; 

repeat 

midd:=(first+last) div 2; 

if a[midd] >target then 

last:=midd-1 

else 

first:=midd+1; 

until (first>last) or (a[midd]=target) ; 
if a[midd] =target then 

binarysearch :=midd 

else 

binarysearch:=0; 


end; 


begin{main program} 

writeln ('enter the data of array a:'); 
for i:=1 to 10 do 

readln (a[i]) ; 

writeln ('enter the target:'); 

readln (target) ; 


b:=binarysearch (a, target) ; 
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writeln('location of target=' ,b) ; 
writeln ('target=',a[b]) ; 
readln; 


end. 


Output:- 

enter the data of array a: 
safiya 

najeh 

banan 

haneen 

khlood 

fatima 

yosof 

riad 

rashed 

ibraheem 

enter the target: 
banan 

location of target=3 


target=banan 


(2) program binary_search3; 
type 

employee=record 
name:string [20]; 
no:integer; 

salary :real; 

age:integer; 

end; 


data=array [1...5] of employee; 
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var i,b,target:integer; 


a:data; emp: employee; 


function binarysearch (var a:data; target:integer) :integer; 
var first,last,midd: integer; 

begin 

first:=1; 

last:=5; 

repeat 

midd:=(first+last) div 2; 

if a[midd] .no>target then 

last:=midd-1 

else 

first:=midd+1; 

until (first>last) or (a[midd] .no=target) ; 
if a[midd] .no=target then 

binarysearch :=midd 

else 

binarysearch:=0; 


end; 


begin{main program} 

writeln ('enter the data of employees:'); 
for i:=1 to 5 do 

begin 

write ('enter name: '); 

readln (a[i] .name) ; 

write ('enter no:'); 

readln (a[i] .no) ; 

write ('enter salary:'); 
readln (a[i] .salary) ; 

write ('enter age:'); 

readln (a[i] .age) ; 

end; 

writeln ('the data of employees are:'); 


writeln ('name no salary age') ; 
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with emp do 

for i:=1 to 5 do 

writeln (a[i] .name, ' ',a[i].no,' ',a[i].salary, ' ',a[i] .age) ; 
writeln; 

writeln('enter the no of employee to search:'); 

readln (target) ; 

b:=binarysearch (a, target) ; 

writeln('location of target=' ,b) ; 

writeln ('the data of this employee is:'); 

with emp do 

begin 

writeln ('name no salary age') ; 
writeln (a[b] .name, ' ',a[b].no,' ',a[b] .salary,' 
',a[b] .age); 

end; 

readln; 


end. 


Output:- 

enter the data of employees: 
enter name :mohamed 
enter no:2 

enter salary:2323. 1232 
enter age:12 

enter name: ahmad 
enter no:1 

enter salary:3434. 543 
enter age:54 

enter name:yosof 
enter no:3 

enter salary:345.443 


enter age:33 
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enter name:khaled 
enter no:4 

enter salary:2324. 442 
enter age:30 

enter name:rashed 
enter no:5 

enter salary: 4455.3433 
enter age:40 


the data of employees are: 


name no salary age 
mohamed 2 2.32312320008+03 12 
ahmad 1 3. 4345430000E+03 54 
yosof 3 3. 4544300000E+02 33 
khaled 4 2.3244420000E+03 30 
rashed 5 4.4553433000E+03 40 


enter the no of employee to search: 

٤ 

location of target=4 

the data of this employee is: 

name no salary age 


khaled 4 2.3244420000E+03 30 


3K XK XK 5K 5K 3K 3K 3K KF 3K 3K 3K 3F 3K 3K 3K 3K 2K 3K 3K 3K 3K 2K 3K 3K 3K 3F 3K 2K 2K 3K 3F 3K 3K 3K 3K 5K 3K 
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-: Internal Sorting Algorithms يلlخاlدلJاl خوارزميات الترتيب‎ )۹-۱( 
-: Bubble Sort عlةغخdلllı‎ بıترتلl‎ (۹-۱-۱) 


في هذا النوع تطفو أصغر عناصر المصفوفة في أعلى المصفوفة . 
٠"‏ نفترض أن لدينا مصفوفة ۸ وعدد عناصرها ١‏ في هذا النوع من الترتيب نتبع مايلي : 

-١‏ قارن بين العنصر الأول مع العنصر الثاني بحيث نضعهم في الترتيب [۸]1[>۸]2 ثم 
نقارن العنصر الثاني مع العنصر الثالث ونضعهم في الترتيب [۸]2[>۸]3 وتستمر هذه 
العملية حتى آخر عنصر من ۸]١-1[>۸]١[‏ وعند الانتهاء من هذه الخطوة يكون أكبر 
عنصر قد وضع في آخر المصفوفة ۸A] ١[‏ . 

-٣‏ كرر الخطوة )١(‏ بحيث تنتهي المقارنة عند العنصر قبل الأخير وعندها يكون هو أكبر 
عنصر في المصفوفة بعد العنصر ۸]١[‏ . 

-٣‏ كرر الخطوة (2) 1- ۸ مرة حتى تصل لمقارنة العنصر الأول مع العنصر الثاني 
۸]1[>A]2[‏ وعندما تكون المصفوفة قد رتبت. 


خوارزمية الترتيب بالغقاع :- 


. =1 ٥ ۸-1 کرر الخطوتین 3,2 بحیث‎ -١ 
أجعل 1= ز.‎ -٣ 
کرر الخطوتین | وب بحیث () - ۸) => ز:۔‎ -۲ 
إذا كان [1+ز]۸<[ز]۸ بدل العنصرين مع بعض.‎ / | 


ب/ أجل 1+ ز=ز. 


= آئیي الكرار فى الخطةة ( 
6 انهئ التكار قى الخظوة (: 


« في الترتيب بالفقاع ممكن أن نرتب تصاعدياً أو تنازلياً ولكن عادة ما نجل العناصر الصغيرة 
في بداية المصفوفة أي ترتيبها ترتيب تصاعدي . 
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الشكل التالي يوضح لنا هذه الخطوات : 


م 
N‏ 
o0‏ 
حلم 
J‏ 
© ھک ج 
و 


J 
00. MM MM, O 
م٣‎ 
N 
کک‎ 
ın 
م٣‎ 
J 


7 4 12 5 17 
7] 8] 4] 5 127 
8 4 5 12 17 

7 4 8 5 12 717 


5 7 


الملفات النصية هي الملفات التى تقرأً كاملة وتجرى عليها عملية المعالجة كاملة . 

حتى نستفيد من الترتيب لابد أن نرتب البيانات لأن الأصل في تخزين البيانات تخزين 

هذه الخورزمية بسيطة تقوم بترتيب البيانات الموجودة داخل ذاكرة الحاسوب والذاكرة دائماً 
حجمها صغير ويالتالي يتم إستخدام هذه الخوارزمية للترتيب الداخلي » هنالك عدة من 
خوارزميات الترتيب الداخلية وكثرة هذه الخوارزميات هي للحصول على أفضل خوارزمية 
للترتيب وكذلك أكثر كفاءة أي تستخدم وقت قصر جداً لترتيب البيانات ولكن خوارزميات 
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الترتيب بالفقاع هي من أسواً خوارزميات الترتيب لأنها تأخذ زمن طويل جداً حيث أنها تقوم 
بمقارتة العنصر الأول مع العنصر الثاني ونضع [۸]2[>۸]1 وإذا كان بالعكس نقوم بترتيبها 
وهكذا الى آخر عنصر . 

Example:- 


program bubblel; 

const n=10; 

var a:array[1..n] of integer; 
1i,j,k, temp :integer; 

begin 

writeln ('enter the data of array a:'); 
for i:=1 to n do 

readln (a[i]) ; 

writeln ('the data befor sort is:'); 
for i:=1 to n do 

write(a[i],' '); 

writeln; 

for k:=1 to n-1 do 

begin 

j:=1; 

while j<=(n-k) do 

begin 

if a[j]>a[j+1] then 

begin 

temp:=a[j]; 

a[J]:=a[j+1]; 

a[j+1] :=temp; 

end; 

j:=j+1; 

end; 

end; 

writeln('the data after sort is:'); 
for i:=1 to n do 

write(a[i],' '); 

readln; 

end. 

Output:- 

180 


DATA STRUCTURES PASCAL Safiya Najeh 


enter the data of array a: 
٤ 
۳ 


1۷ 


VY 


۱۱ 

the data befor sort is: 
11 ۸ VY ۱1 4 o YY TY YF £ 
the data after sort is: 


VV TV YT 11 1 A o £ ۱ 


Example:- 


برنامج يستخدم الترتيب بالفقاع (50۲ عاططا8) لترتيب عدد من الأسماء في مصفوفة ومن ثم 


program bubble2; 

var n:array[1..5] of string; 
i,j,k:integer; 

temp:string; f:text; 

begin 
assign (f, 'c:\aaa.txt') ; 
rewrite(f) ; 

writeln ('enter the names:'); 
for i:=1 to 5 do 

readln (n[i]) ; 

for k:=1 to 5 do 

for j]j:=1 to 5-k do 
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if n[j]>n[j+1] then 
begin 

temp:=n[ j]; 
n[j]:=n[j+1]; 
n[j+1] :=temp; 

end; 

writeln ('the sort is:'); 
for i:=1 to 5 do 
begin 

writeln (n[i]); 
write(f,n[i]); 

end; 

close(f); 

readln; 


end. 


Output:- 
enter the names: 
fatima 
safiya 
banan 

alaa 

haneen 

the sort is: 
alaa 

banan 
fatima 
haneen 


safiya 


تمرین (۷):- 
" اكتب برنامج يقوم بتخزين سجلات 3 موظفين على مصفوفة حيث بيانات الموظف هي 
(الاسم ٣"۳‏ . الرقم ۸0٥‏ - ل » المرتب۲۷هاهء . المكان ععهام . الدرجة الوظيفية عاةءء) » 
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تم يقوم البرنامج بطباعة سجلات جميع الموظفين على شاشة التنفيذ » ثم يتضمين 3 


برامج فرعية داخل هذا البرنامج : 


-١‏ برنامج فرعي يبحث مستخدماً ال 5۵2۲٤٩۸‏ 2۲٥٣ا‏ حيث حقل البحث هو الرقم ثم أقوم 
بتفير هذه الخوارزمية بحيث الا أضف العنصر المراد البحث عنه في آخر المصفوفة وأول ما 
يجد العنصر المطلوب يقوم بإنهاء عملية البحث مباشرة . 

-٣‏ برنامج فرعی یقوم بترتیب السجلات بإاستخدام حقل الرقم مستخدماً ال sort‏ ماBubb‏ ثم 
يقوم بطابعة سجلات الموظفين بعد الترتيب . 

-٣‏ برنامج فرعي يبحث مستخدماً ال ۸٤2۲عء‏ 2۲۷" اط حيث حقل البحث هو الرقم » إذا وجده 
يقوم بطباعة بياناته ثم يقوم باسناد القيمة صفر الى كل حقوله ثم يقوم بطباعة بيانته مرة 


أخرى . 


تم يقوم البرنامج بطباعة سجلات جميع الموظفين بعد |wتۃتخدpl‏ |لsearchJ Binary‏ 


حل التمرين:- 


program bubble3; 

const m=4; 

type 

employee=record 

name:string [20]; 

no:integer; 

salary :real; 

place:string [20]; 
scale:string [20]; 

end; 

data=array [1..m]of employee; 
var a:data; temp , emp :employee; 


loc,item,k,],i,s,b,target,l:integer; 


procedure linearsearch (item: integer) ; 
begin 

1:=m-1; 

a[l+1] .no:=item; 

loc:=1; 

while a[loc] .no<>item do 

loc:=loc+1; 

if loc=l1+1 then 


writeln('this record is not found') 
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else 

begin 

writeln ('the record location is by linear search is:',l); 
writeln('the data of this employee is:'); 

writeln ('name no salary place scale'); 


with emp do 


writeln (a[loc] .name, ' ',a[loc].no,' ',a[loc].salary, ' 
',a[loc] .place,' ',a[loc] .scale); 

end; 

end; 


function bubblesort (var a:data) :integer; 

begin 

for k:=1 to 3 do 

for j]:=1 to 3-k do 

if a[j].no>a[j+1].no then 

begin 

temp:=a[j]; 

a[j]:=a[j+1]; 

a[j+1] :=temp; 

end; 

writeln; 

writeln ('the sort of record is:'); 

writeln ('name no salary place scale'); 
for i:=1 to 3 do 

writeln (a[i] .name, ' ',a[i].no,' ',a[i].salary, ' 
',a[i] .place,' ',a[i] .scale); 


end; 


function binarysearch (var a:data; target: integer) :integer; 
var first,last,midd: integer; 

begin 

first:=1l; last:=3; 

repeat 

midd:=(first+last) div 2; 

if a[midd] .no>target then 
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last:=midd-1 

else 

first:=midd+1; 

until (first>last) or (a[midd] .no=target) ; 
if a[midd] .no=target then 
binarysearch:=midd 

else 

binarysearch:=0; 


end; 


begin {main program} 

writeln ('enter the data of employees:'); 

for i:=1 to 3 do 

begin 

write ('enter the name of employee',i,': '); 
readln (a[i] .name) ; 

write ('enter the no of employee',i,': '); 
readln (a[i].no) ; 

write ('enter the salary of employee',i,': '); 
readln (a[i] .salary) ; 

write ('enter the place of employee',i,': '); 
readln (a[i] .place) ; 

write ('enter the scale of employee',i,': '); 
readln (a[i] .scale) ; 

end; 

writeln('the data of employee are:'); 

writeln ('name no salary place scale') ; 
with emp do 

for i:=1 to 3 do 


writeln (a[i] .name, ' ',a[i].no,' ',a[i].salary, ' 
',a[i] .place,' ',a[i] .scale); 
writeln; 


writeln ('enter the no of employee to search by linear search:'); 
readln (item) ; 
linearsearch (item) ; 


writeln; 
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s:=bubblesort (a) ; 

writeln; 

writeln ('enter the no of employee to search by binary search:'); 
readln (target) ; 

b:=binarysearch (a, target) ; 

if a[b] .no=target then 

begin 

writeln ('the record location by binary search is=' ,b); 

writeln ('the data of this employee is:'); 

writeln ('name no salary place scale'); 


with emp do 


begin 
writeln (a[b] .name, ' ',a[b].no,' ',a[b].salary, ' 
',a[b] .place,' ',a[b] .scale); 


a[b] .name:='0'; 
a[b].no:=0; 

a[b].salary:=0; 
a[b] .place:='0'; 


a[b] .scale:='0'; 


writeln; 

writeln ('name no salary place scale'); 
writeln (a[b] .name, ' ',a[b].no,' ',a[b].salary, ' 
',a[b] .place,' ',a[b] .scale) ; 

end; 

end 

else 


writeln('this record is not found') ; 

writeln; 

writeln('the data of employee are:'); 

writeln ('name no salary place scale'); 
with emp do 

for i:=1 to 3 do 


writeln (a[i] .name, ' ',a[i].no,' ',a[i].salary, ' 
',a[i] .place,' ',a[i] .scale); 

readln; 

end. 
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scale 


scale 


scale 


data of employees: 

name of employeel: safiya 

no of employeel: 4 

salary of employeel: 2323.223 
place of employeel: iraq 
scale of employeel: a 

name of employee2: najeh 

no of employee2: 1 

salary of employee2: 234.232 
place of employee2: iraq 
scale of employee2: b 

name of employee3: banan 

no of employee3: 3 

salary of employee3: 34534.343 
place of employee3: tunis 


scale of employee3: c 


the 
the 
the 
the 
the 
the 
the 
the 
the 
the 
the 
the 
the 
the 
the 
the 


Output 


enter 
enter 
enter 
enter 
enter 
enter 
enter 
enter 
enter 
enter 
enter 
enter 
enter 
enter 
enter 


enter 


the data of employee are: 


no salary place 
4 2.3232230000E+03 iraq 
1 2.3423200000E+02 iraq 
3 3.4534343000E+04 tunis 


name 
safiya 
najeh 


banan 


enter the no of employee to search by linear search: 


۱ 


the record location is by linear search is:2 


the data of this employee is: 


no salary place 
1 2.3423200000E+02 iraq 


name 


najeh 


the sort of record is: 


no salary place 
1 2.3423200000E+02 iraq 
3 3.4534343000E+04 tunis 
4 2.3232230000E+03 iraq 


name 
najeh 
banan 


safiya 


187 


DATA STRUCTURES PASCAL | Safiya Najeh 


scale 


enter the no of employee to search by binary search: 
۳ 
the record location by binary search is=2 


the data of this employee is: 


name no salary place 
banan 3 3.4534343000E+04 tunis 
name no salary place scale 
¥ OOHRS ۰ * E+00 0 0 


the data of employee are: 


name no salary place 
najeh 1 2. 3423200000E+02 iraq 
E O CO ۰ E+00 0 

safiya 4 2.3232230000E+03 iraq 


-: Selection Sort رڙlıةخlێJl الترتیب‎ (۹-۱-۲( 


لنفرض أن لدينا مجموعة من الأعداد عددها (۸) ونريد ترتيبها تصاعدياً باستعمال الترتيب 


بالاختيار . 


« الفكرة الأساسية لهذه الطريقة هو البحث عن أصغر عنصر في المصفوفة واستبداله مع 
العنصر الأول  3]1[‏ ثم نبحث عن أصغر عنصر بين العناصر [3]2 إلى 3]١[‏ وتقوم بتبديله مع 
العنصر الثاني [2] » ثم تأخذ العناصر من [3] إلى [١]ة‏ ونبحث عن أصغرها وتبديله مع 
العنصر الثالث [2]3 وهكذا حتى تنتهي من كل عناصر المصفوفة فنحصل على مصفوفة 


مرنبه . 
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الشكل التالي يوضح هذه الخطوات:- 


(3) 4|5 8 17) 7 | 12 


(4) 4 5 7 17) 8 | 12 


6) [4] 5 [7] 8 [17 12 


(6) |4] 5] 7 [| 8 [ 12 17 


ه تحديد العنصر الأصغر يعني تحديد ال 10٤210١‏ له. 


خوارزمية الترتيب بالاختيار :- 


-١‏ ضع 1 =|أ. 
-٣‏ ابحث عن أصغر عنصر من عناصر المصفوفة من [i]ة‏ الى [١]ة‏ . 
-٣‏ قم بتبديل العنصر الأصغر مع [ ¡ ]3 . 


>- أجعل 1+ أ=|أ. 
ه- إذا كان ۸=¡ حيث )١(‏ عدد عناصر المصفوفة فإن المصفوفة تكون قد رتبت والا أذهب الى 
الخطوة رقم (2). 


ه إذا أردت ألا أضيف العنصر المراد البحث عنه في ال 1٤2۲ع‏ 2۲٥ا‏ الى آخر المصفوفة وذلك 
لإستغلال المساحة نضيف ٤0٣١|0١‏ الى شرط حلقة عاأأ۷ فيصبح الشرط كالتالي:- 


While (a[loc]<>item) and (i<=n) do 
Example:- 


program select1l; 

const n=10; 

var a:arrays[1..10] of integer; 
1i,j,k,s:integer; 

begin 


writeln ('enter the data of array a:'); 
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); 


); 


for i:=1 to 10 do 


readln (a[i]) ; 


writeln ('the data befor sort is: 


for i:=1 to n do 
write(a[i],' '); 
for j]:=1 to 10 do 
begin 

k:=j; s:=a[j]; 

for i:=j+1 to 10 do 
begin 

if a[i]<s then 
begin 

s:=a[i]; k:=i; 

end; 

end; {end of for i} 
s:=a[j]; a[j]:=a[k]; a[k]:=s; 
end; {for i} 


writeln; 


writeln ('the data after sort is: 


for i:=1 to 10 do 
write(a[i],' '); 
readln; 


end. 


Output:- 

enter the data of array a: 
۱۲ 

0 

۳ 

۳ 

۱ 


1۷ 
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the data befor sort is: 
o1 11 ۳° o “VY 1 Y۳ ۳ o 1۲ 
the data after sort is: 


TY o1 fo ° YF 1۲ 11 o ۳ 1 


Example:- 


program select2; 

const n=10; 

type 

data=array [1..n] of integer; 
var a:data; 


i, J:integer; 


procedure selectsort (var table:data;n:integer) ; 
var maxposition: integer; 

function find maxpos (var table:data;n:integer) :integer; 
var i,maxpos:integer; 

begin 

maxpos:=1; 

for i:=2 to n do 

if t able[i] >table [maxpos] then 

maxpos:=i; 

find_maxpos:=maxpos; 

end; 

procedure exchange (var x,y:integer) ; 


var temp :integer; 


begin 
temp :=x; 
x:i=y; 
y:=temp; 
end; 
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begin {procedure selectsort} 

if n>1 then 

begin 
maxposition:=find maxpos (table,n) ; 
exchange (table [maxposition] , table [n]) ; 
selectsort (table,n-1) ; 

end; 


end; {procedure selectsort} 


begin{main program} 

writeln ('enter the data of array a:'); 
for i:=1 to n do 

readln (a[i]) ; 

writeln ('the data befor sort is:'); 
for i:=1 to n do 

write(a[i],' '); 

writeln; 

selectsort (a,n) ; 

writeln ('the data after sort is:'); 
for i:=1 to n do 

write(a[i],' '); 

readln; 


end. 


Output:- 

enter the data of array a: 
۱۲ 

0 

۳ 

۳ 

۱ 


1۷ 
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the data befor sort is: 
o1 11 ۳° o “VY 1 Y۳ ۳ o 1۲ 
the data after sort is: 


TY o1 fo ° YF 1۲ 11 o ۳ 1 


Example:- 


program select3; 

const m=4; 

type 

employee=record 

name :string [20]; 
no:integer; 

salary :real; 

place:string [20]; 
scale:string [20]; 

end; 

data=array [1..m]of employee; 
var a:data; emp, s: employee; 


loc,item,k,j,i,b,target,n:integer; 


procedure linearsearch (item: integer) ; 
begin 

n:=m-1; 

a[n+1] .no:=item; 

loc:=1; 

while (a[loc].no<>item) and (i<=n) do 
loc:=loc+1; 

if loc=n+1 then 

writeln('this record is not found') 
else 

begin 
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writeln ('the record location is by linear search is:',loc); 


place scale'); 


',a[loc].salary, ' 


place scale'); 


',a[i].salary, ' 


writeln('the data of this employee is:'); 
writeln ('name no salary 


with emp do 


writeln (a[loc] .name, ' ',a[loc].no,' 
',a[loc] .place,' ',a[loc] .scale); 
end; 

end; 


procedure selectsort (var a:data) ; 
begin 

for j:=1 to 3 do 

begin 

k:=j; s:=a[j]; 

for i:=j+1 to 3 do 

begin 

if a[i].no<s.no then 

begin 

s:i=a[i]; k:=i; 

end; 

end; {end of for i} 

s:=a[]J]; a[]J]:=a[k]; a[k]:=s; 
end; {for i} 

writeln; 

writeln ('the sort of record is:'); 
writeln ('name no salary 


for i:=1 to 3 do 


writeln (a[i] .name, ' ',a[i].no,' 
',a[i] .place,' ',a[i] .scale); 
end; 


function binarysearch (var a:data; target: integer) :integer; 


var first,last,midd: integer; 
begin 
first:=1l; last:=3; 


repeat 
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midd:=(first+last) div 2; 

if a[midd] .no>target then 

last:=midd-1 

else 

first:=midd+1; 

until (first>last) or (a[midd] .no=target) ; 
if a[midd] .no=target then 
binarysearch:=midd 

else 

binarysearch:=0; 


end; 


begin {main program} 

writeln ('enter the data of employees:'); 

for i:=1 to 3 do 

begin 

write ('enter the name of employee',i,': '); 
readln (a[i] .name) ; 

write ('enter the no of employee',i,': '); 
readln (a[i].no) ; 

write ('enter the salary of employee',i,': '); 
readln (a[i] .salary) ; 

write ('enter the place of employee',i,': '); 
readln (a[i] .place) ; 

write ('enter the scale of employee',i,': '); 
readln (a[i] .scale) ; 

end; 

writeln('the data of employee are:'); 

writeln ('name no salary place scale'); 
with emp do 

for i:=1 to 3 do 


writeln (a[i] .name, ' ',a[i].no,' ',a[i].salary, ' 
',a[i] .place,' ',a[i] .scale); 
writeln; 


writeln('enter the no of employee to search by linear search:'); 


readln (item) ; 
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l1linearsearch (item) ; 

writeln; 

selectsort (a) ; 

writeln; 

writeln('enter the no of employee to search by binary search:'); 
readln (target) ; 

b:=binarysearch (a, target) ; 

if a[b] .no=target then 

begin 

writeln ('the record location by binary search is=' ,b); 

writeln ('the data of this employee is:'); 

writeln ('name no salary place scale') ; 


with emp do 


begin 
writeln (a[b] .name, ' ',a[b].no,' ',a[b].salary, ' 
',a[b] .place,' ',a[b] .scale); 


a[b] .name:='0'; 
a[b].no:=0; 

a[b].salary:=0; 
a[b] .place:='0'; 


a[b].scale:='0'; 


writeln; 

writeln ('name no salary place scale'); 
writeln (a[b] .name, ' ',a[b].no,' ',a[b].salary, ' 
',a[b] .place,' ',a[b] .scale) ; 

end; 

end 

else 


writeln('this record is not found') ; 

writeln; 

writeln('the data of employee are:'); 

writeln ('name no salary place scale'); 
with emp do 

for i:=1 to 3 do 

writeln (a[i] .name, ' ',a[i].no,' ',a[i].salary, ' 


',a[i] .place,' ',a[i] .scale); 
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readln; 


end. 


Output:- 
enter the data of employees: 


enter the name of employeel: gege 
enter the no of employeel: 3 

enter the salary of employeel: 232.1212 
enter the place of employeel: lebnan 
enter the scale of employeel: e 

enter the name of employee2: seera 
enter the no of employee2: 2 

enter the salary of employee2: 232.32 
enter the place of employee2: dubai 
enter the scale of employee2: a 

enter the name of employee3: tema 
enter the no of employee3: 9 

enter the salary of employee3: 3223.223 
enter the place of employee3: landon 
enter the scale of employee3: c 


the data of employee are: 


name no salary place scale 
gege 3 2.3212120000E+02 lebnan e 
seera 2 2. 3232000000E+02 dubai a 
tema 9 3.2232230000E+03 landon c 


enter the no of employee to search by linear search: 

۲ 

the record location is by linear search is:2 

the data of this employee is: 

name no salary place scale 
seera 2 2. 3232000000E+02 dubai a 


the sort of record is: 


name no salary place scale 
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seera 2 2. 3232000000E+02 dubai 
gege 3 2.3212120000E+02 lebnan e 
tema 9 3.2232230000E+03 landon c 


enter the no of employee to search by binary search: 


this record is not found 


the data of employee are: 


name no salary place scale 
seera 2 2. 3232000000E+02 dubai a 
gege 3 2.3212120000E+02 lebnan e 
tema 9 3.2232230000E+03 landon c 


-: Insertion Sort JlخدۈإJlı الترتيب‎ (۹-۱-3) 


ه هذه الطريقة تختصر جزء من عمل طريقة الترتيب بالاختيار » فنقوم أولاً بالبحث عن أصغر 
في المصفوفة ونحتفظ به في متغير آخر ثم نقوم بإزاحة للعناصر من [3]1 إلى العنصر 
ال عة قل اا اا ضر الت اء دد ا فض حط امار وة 
اص الافر قاي ردك فة اكات السات خي اله صو هن اة كت اغ 
عنصر في المصفوفة . 


الشكل التالي يوضح هذه الخطوات:- 


(3) 4 5 7 12) 8 |17 


(4) 4 5 7 8 12 17 
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خوارزمية الترتيب بالإدخال :- 


-١‏ ضع 1=|أً. 

. 3]١[ ابحث أصغر عنصر من عناصر المصفوفة من [2]1 وحتى‎ -٣ 

. ضع العنصر الأصغر في المتغير×‎ -٣ 

>- اعمل إزاحة لجميع العناصر من [1]ة وحتى العنصر الذي يقع قبل مكان العنصر الأصغر 
بتقديم كل منهم خطوة للأمام "6۴" . 

ه- ضع a]|[:=×‏ . 

-٦‏ ضع 1+ أ=أ. 

۷- إذا كان ( ١‏ = ¡) فإن المصفوفة قد رتبت وإلا أذهب إلى الخطوة رقم (2) . 


*Insert Sort in integer array:- 


program insert1l; 

var a:array [1..10] of integer; 
1i,j,k,c,n,min:integer; 

begin 

writeln ('enter the number of elements:'); 
readln (n) ; 

writeln ('enter the elements of array a:'); 
for i:=1 to n do 

begin 

write('A',i,'='); 

readln (a[i]) ; 

end; 

writeln ('the elements of array A befor sorting are:'); 
for i:=1 to n do 

write(a[i],' '); 

writeln; 

for i:=1 to n do 

begin 

k:=0; 

min:=a [i]; 

for j]J:=i to n do 

if min>a[j] then 


begin 
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min:=a[j]; 

k:=j; 

end; 

for c:=k downto i do 
a[c]:=a[c-1]; 
a[i]:=min; 

end; {end of for i} 
writeln ('the elements of array A after sort is:'); 
for i:=1 to n do 
write(a[i],' '); 
readln; 


end. 


Output:- 

enter the number of elements: 
1۰ 

enter the elements of array a: 
A1=21 


A2=44 


A5=88 

A6=5 

A7=32 

A8=10 

A9=11 

A10=23 

the elements of array A befor sorting are: 
Y1 11 1° PY o AA £ I1I E 11 

the elements of array A after sort is: 


AN <1 FY YF 1 1۱1 1° o £1 


*Insert Sort in record:- 
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program insert2; 

type 

employee=record 

name:string; 

age:integer; 

address:string; 

end; 

var emp:array[1..10]of employee; 
1i,j,k,c,n:integer; 


min : employee; 


begin{main program} 

writeln ('enter the numbers of employees:'); 
readln (n) ; 

for i:=1 to n do 

begin 

writeln ('enter the data of employee[',i,']:'); 
write ('enter the name:'); 
readln (emp [i] .name) ; 

write ('enter the age:'); 
readln (emp [i] .age) ; 

write ('enter the address:'); 

readln (emp [i] .address) ; 

end; 

writeln; 

writeln ('the data befor sorting are:'); 
writeln ('name age address') ; 

for i:=1 to n do 

writeln (emp [i] .name,' ',emp[i].age,' ',emp[i] .address) ; 
writeln; 

for i:=1 to n do 

begin 

k:=0; 

min :=emp [i] ; 

for j]J:=i to n do 


if min.age>emp [j] .age then 
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begin 

min :=emp [J]; 

k:=j; 

end; 

for c:=k downto i do 

emp [c] :=emp [c-1]; 

emp [i] :=min; 

end; {end of for i} 

writeln('the data after sorting are:'); 
writeln ('name age address') ; 
for i:=1 to n do 

writeln (emp [i] .name,' ',emp[i].age,' ',emp[i] .address) ; 
readln; 


end. 


Output:- 


enter the numbers of employees: 
۳ 

enter the data of employee [1] : 
enter the name :doha 

enter the age:19 

enter the address: 3man 

enter the data of employee [2]: 
enter the name :noor 

enter the age:20 

enter the address: Irbed 

enter the data of employee [3] : 
enter the name :yosof 

enter the age:5 

enter the address: tunis 

the data befor sorting are: 


name age address 
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); 


doha 19 3man 

noor 20 Irbed 
yosof 5 tunis 

the data after sorting are: 
name age address 
yosof 5 tunis 
doha 19 3man 

noor 20 Irbed 


*Insertion Sort in file:- 


program insert3; 

type 

employee=record 

name:string; 

age:integer; 

address:string; 

end; 

var emp:array[1..10] of employee; 
1i,j,k,c,n:integer; 
temp ,min : employee; 


f:file of employee; 


begin {main program} 

assign (f, 'c:\emp.dat') ; 

rewrite (f) ; 

writeln ('enter the numbers of employees:'); 
readln (n) ; 

writeln ('enter the data of employees:'); 
for i:=1 to n do 

begin 

writeln ('enter the data of employee[',i,']: 


write ('enter the name:'); 
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readln (emp [i] .name) ; 

write ('enter the age:'); 
readln (emp [i] .age) ; 

write ('enter the address:'); 
readln (emp [i] .address) ; 
write (f,emp [i]); 

end; 

writeln; 

writeln('the data befor sorting are:'); 
reset(f) ; 

writeln ('name age address') ; 
i:=1; 

while not eof(f) do 

begin 

read(f,emp [i]) ; 

with emp [i] do 

writeln (name,' ',age,' ',address) ; 
1:=i+1; 

end; 

writeln; 

for i:=1 to n do 

begin 

k:=0; 

min :=emp [i] ; 

for j]J:=i to n do 

if min.age>emp [j] .age then 
begin 

min:=emp [J]; 

k:=j; 

end; 

for c:=k downto i do 

emp [c] :=emp [c-1]; 

emp [i] :=min; 

end; 

rewrite(f) ; 


for i:=1 to n do 
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write (f,emp [i]); 

writeln('the data after sorting are:'); 
reset(f); 

writeln ('name age address') ; 
1:=1; 

while not eof(f) do 

begin 

read(f,emp [i]) ; 

with emp [i] do 

writeln (name,' ',age,' ',address) ; 
1:=i+1; 

end; 

close(f); 

readln; 


end. 


Output:- 


enter the numbers of employees: 


enter the data of employees: 
enter the data of employee [1] : 
enter the name :mohamed 

enter the age:30 

enter the address: sudan 

enter the data of employee [2]: 
enter the name :ahmad 

enter the age:20 


enter the address: sudan 


the data befor sorting are: 
name age address 


mohamed 30 sudan 
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ahmad 20 sudan 


the data after sorting are: 


name age address 
ahmad 20 sudan 
mohamed 30 sudan 


New way in file:- 


program insert4; 

type 

employee=record 

name:string; 

age:integer; 

address:string; 

end; 

var emp:array[1..10] of employee; 
1i,j,k,c,n:integer; 

temp ,min : employee; 


f:file of employee; 


begin {main program} 

assign (f, 'c:\emp.dat') ; 

rewrite (f) ; 

writeln ('enter the numbers of employees:'); 
readln (n) ; 

writeln ('enter the data of employees:'); 
for i:=1 to n do 

begin 

writeln ('enter the data of employee[',i,']:'); 
write ('enter the name:'); 
readln (emp [i] .name) ; 

write ('enter the age:'); 
readln (emp [i] .age) ; 


write ('enter the address:'); 
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readln (emp [i] .address) ; 

write (f,emp [i]); 

end; 

writeln; 

writeln('the data befor sorting are:'); 
reset(f); 

writeln ('name age address') ; 
while not eof(f) do 

begin 

read(f, temp) ; 

with temp do 

writeln (name,' ',age,' ',address) ; 
end; 

writeln; 

for i:=1 to n do 

begin 

k:=0; 

min :=emp [i] ; 

for jJ:=i to n do 

if min.age>emp [j] .age then 

begin 

min:=emp [j]; 

k:=j; 

end; 

for c:=k downto i do 

emp [c] :=emp [c-1]; 

emp [i] :=min; 

end; 

rewrite(fÊ) ; 

for i:=1 to n do 

write (f,emp[i]) 7; 

writeln('the data after sorting are:'); 
reset(f); 

writeln ('name age address') ; 
while not eof(f) do 

begin 
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read(f, temp) ; 

with temp do 

writeln (name,' ',age,' ',address) ; 
end; 

close(f); 

readln; 


end. 


enter the numbers of employees: 


enter the data of employees: 
enter the data of employee [1] : 
enter the name:walaa 

enter the age:22 

enter the address: sudan 

enter the data of employee [2]: 
enter the name :olaa 

enter the age:33 


enter the address: sudan 


the data befor sorting are: 


name age address 
walaa 22 sudan 
olaa 33 sudan 


the data after sorting are: 


name age address 
walaa 22 sudan 
olaa 33 sudan 
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-: 8ا6‎ S0۲٤ الترتیب بالتجزنه‎ )۹-۱-٤( 


تنفذ هذه الطريقة في عدة مراحل » فلو افترضنا عدد عناصر المصفوفه "6 " فان هذه المراحل 
تنفذ کمايلي 


ه المرحلة الأولي : - 
d=(b+1) /2=3‏ 


نقارن لض الال هخ الاك ( الف 3 انى مخ الكاسن والالت مع الساذمن وذفد هة 
المبادلة إذا لزم الأمر . 


ه المرحلة الثانية :- 
d=)3+1)/2=2‏ 


فان الفض الال مخ افالت ر( الف 2 والقاتى مالاع واكفالت مح الخافمى والكافن فة 
الفتاذشن وتنفذ, عة المباذلة إا لزم الأمر. 


ه المرحلة التالثة :- 
d=(2+1)/2=1‏ 
بقارت اضر الأول مخ العاتى ( الففزاK‏ والتالت م الزات هذا : 
ه المرحلة الأخيرة :- 
متابعة الترتيب حتى يصبح (4=1 ) وحتى لا تحصل عملية مبادلة . 
المثال التالي يوضح ذلك وهنا الترتيب تنازلي:- 


Array at beginning: 84 69 76 86 94 91 d 


After pass#1: 86 94 91 84 69 7/7 3 
After pass#2: 91 94 86 84 69 7 2 
After pass#3: 94 91 86 84 76 69 1 


After pass#4(done): 94 91 86 84 76 69 1 


Example:- 
program shell1; 


type 
data=array [1..10] of integer; 


var x:data; 
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i,n:integer; 


procedure shell sort (var a:data;n:integer) ; 
var flag,d, temp: integer; 
begin 

flag:=1l; d:=n; 

while (flag<>0) or (d>1) do 
begin 

flag:=0; d:=(d+1) div 2; 
for i:=1 to n-d do 

begin 

if al[i+d]>al[i] then 

begin 

temp :=a[i+d]; 

a[i+d] :=a[i]; 

a[i] :=temp; 

flag:=1; 

end; 

end; 

end; 


end; 


begin {main program} 

writeln ('enter the number of elements:'); 
readln (n) ; 

writeln ('enter the elements:'); 

for i:=1 to n do 

readln (x[i]) ; 

writeln ('the elements befor sort is:'); 
for i:=1 to n do 

write(x[i],' '); 

writeln; 

shell_sort (x,n) ; 

writeln ('the elements after sort is:'); 
for i:=1 to n do 


write(x[i],' '); 
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readln; 


end. 


Output:- 

enter the number of elements: 
0 

enter the elements: 

۱۲ 

٤ 

0 

1۷ 

۰ 

the elements befor sort is: 
1° TV o E 1۲ 

the elements after sort is: 


o 1° 1۲ ££ ۷ 


Example:- 

program shel1l2; 

type 

employee=record 

name:string; 

no:integer; 

address:string; 

end; 

data=array [1..10]of employee; 
var a:data; 
i,j,k,c,n:integer; 

procedure shell sort (var a:data;n:integer) ; 
var flag,d:integer; 
temp : employee; 

begin 

flag:=1l; d:=n; 

while (flag<>0) or (d>1) do 
begin 

flag:=0; d:=(d+1) div 2; 
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for i:=1 to n-d do 
begin 

if a[i+d].no>a[i].no then 
begin 

temp :=a[i+d]; 
a[i+d] :=a[i]; 

a[i] :=temp; 
flag:=1; 

end; 

end; 

end; 


end; 


begin{main program} 

writeln ('enter the numbers of employees:'); 
readln (n) ; 

for i:=1 to n do 

begin 

writeln ('enter the data of employee[',i,']:'); 
write ('enter the name:'); 

readln (a[i] .name) ; 

write ('enter the no:'); 

readln (a[i].no) ; 

write ('enter the address:'); 
readln (a[i] .address) ; 

end; 

writeln; 

writeln('the data befor sorting are:'); 
writeln ('name no address') ; 

for i:=1 to n do 

writeln (a[i] .name,' ',a[i].no,' ',a[i].address) ; 
writeln; 

shell_sort(a,n) ; 

writeln('the data after sorting are:'); 
writeln ('name no address') ; 


for i:=1 to n do 
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writeln (a[i] .name,' ',a[i].no,' ',a[i].address); 
readln; 

end. 

Output:- 

enter the numbers of employees: 

۳ 


enter the data of employee [1] : 
enter the name :ahmad 

enter the no:8 

enter the address: sudan 

enter the data of employee [2]: 
enter the name:samiya 

enter the no:2 

enter the address: sudan 

enter the data of employee [3] : 
enter the name: 3adel 

enter the no:5 


enter the address: sudan 


the data befor sorting are: 


name no address 
ahmad 8 sudan 
samiya 2 sudan 
"adel 5 sudan 


the data after sorting are: 


name no address 
ahmad 8 sudan 
adel 5 sudan 
samiya 2 sudan 
Example:- 


program shell3; 
type 
employee=record 


name:string; 


213 


Safiya Najeh 


DATA STRUCTURES - PASCAL 


no:integer; 

address:string; 

end; 

data=array [1..10] of employee; 
var emp :data; 
i,j,k,c,n:integer; 


f:file of employee; 


procedure shell sort (var a:data;n:integer) ; 


var flag,d:integer; 
temp : employee; 

begin 

flag:=1l; d:=n; 

while (flag<>0) or (d>1) do 
begin 

flag:=0; d:=(d+1) div 2; 
for i:=1 to n-d do 

begin 

if a[i+d].no>a[i].no then 
begin 

temp :=a[i+d]; 

a[i+d] :=a[i]; 

a[i] :=temp; 

flag:=1; 

end; 

end; 

end; 


end; 


begin {main program} 

assign (f, 'c:\emp.dat') ; 

rewrite (f) ; 

writeln ('enter the numbers of employees: 
readln (n) ; 

writeln ('enter the data of employees:'); 


for i:=1 to n do 
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begin 

writeln ('enter the data of employee[',i,']:'); 
write ('enter the name:'); 
readln (emp [i] .name) ; 

write ('enter the no:'); 
readln (emp [i] .no) ; 

write ('enter the address:'); 

readln (emp [i] .address) ; 

write (f,emp[i]) ; 

end; 

writeln; 

writeln ('the data befor sorting are:'); 
reset(f) ; 

writeln ('name no address') ; 
1i:=1; 

while not eof(f) do 

begin 

read(f,emp[i]) ; 

with emp [i] do 

writeln (name,' ',no,' ',address); 
i:=i+1; 

end; 

writeln; 

shell_sort (emp,n) ; 

rewrite (f) ; 

for i:=1 to n do 

write (f,emp[i]) ; 

writeln('the data after sorting are:'); 
reset(f) ; 

writeln ('name no address') ; 
i51; 

while not eof(f) do 

begin 

read(f,emp [i]) ; 

with emp [i] do 


writeln (name,' ',no,' ',address); 
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i:=i+1; 
end; 
close(f); 
readln; 


end. 


Output:- 
enter the numbers of employees: 


enter the data of employees: 
enter the data of employee [1] : 
enter the name:sayaf 

enter the no:2 

enter the address: tunis 

enter the data of employee [2]: 
enter the name :omar 

enter the no:23 


enter the address: tunis 


the data befor sorting are: 


name no address 
sayaf 2 tunis 
omar 23 tunis 


the data after sorting are: 


name no address 
omar 23 tunis 
sayaf 2 tunis 


-: Quick Sort gıرwلا الترتيب‎ (۹-۱-۵( 


" تعد هذه الخوارزمية من أفضل وأسرع خوارزميات الترتيب » إذ أنها تستخدم تقنية التصميم 
في عملها والتي تؤدي إلى تقسيم القائمة المطلوب ترتيبها إلى قسمين يفصل بينها 
عنصر منتخب (1۷0م) » حيث تكون قيم القسم الأول اصغر او تساوي قيمة العنصر 
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المنتخب وتوضع يساره» وقيم القسم الثاني أكبر من قيمة العنصر المنتخب وتوضع على 
يمينه. وفي القوائم الكبيرة يمكن تقسيم كل قسم إلى قسمين أخريين وهكذا إلى أن يتم 
ترتيب جميع الاقسام ومن ثم دمجهم مع بعض لتكوين قائمة مرتبة. 
اي ان خوارزمية الترتيب السريع تتكون من تلات مراحل وهي : 


„(Choose a pivot Value) بڊختiمlاl اختيار العنصر‎ .١ 


.(Partitiټ¬)‎ puwسقتll‎ .Y 
.)Soاا( الترتیب‎ .۳ 


" إن عملية اختيار العنصر المنتخب هي من أصعب أجزاء هذه الخوارزميةء لأنه في العادة يتم 
تقسيم القائمة إلى نصفين متساويين بغض النظر عن قيمة العنصر المنتخب. وهذا قد 
يتسبب في زيادة وقت التنفيذ إذ لم تكن القيمة المنتخبة في موقعها الصحيح » أي ريما 
تكون في موقع معاكس لعملية الترتيب. والحل البديل لهذه الحالة هو اختيار ثلاث قيم من 
القائمة غير المرتبة وغالباً ما تكون القيمة الأولى والوسطى والأخيرة ومن ثم اختيار القيمة 
الأوسط بين تلك القيم. 


إذا كانت لدينا القوائم التالية: 
تم اختيار القيمة )>٤(‏ للقائمة التالية:- 


OAS O TOOLS 


واختيار القيمة )۲٠١(‏ للقائمة التالية:- 


GIES EHS 


واختبار القيمة )٠١(‏ للقاتمة التالية:- 
r‏ 
OOO DSI OIE‏ 
وقد اخثيار قيمة الفنصر الفنتخي بيثم تقسيم القائمة غير المرثية إلى قائمثين 1156-طنة 0س 
الأولى: تضم الفناصر الوافة بين الفتضر الأول (م) والفنصر المتتخب (6). 
والثانية : تضم العناصر الواقعة بعد العنصر المنتخب (1+) والعنصر الأأخير .)٣(‏ 


وكما موضح في الشكل الآتي : 
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Pp List A ۲ 


Partition (A, p, r) 


p q1 q q+1 r 


< Pivot Pivot > Pivot 


وف أشغاء الفنضر المت قوم وخة القتمة العفت كاه الفكر الاك والفخة الكرى 
مكان القيمة الوسطى. وكما موضح في المثال الآتي : 


Pivot =44 


د 
ا“ 

ODE EOD SELES 
ggg 


Pivot = 44 ا‎ 
OEE DODO 


ثم نبدأ بعملية ترتيب القائمة والتي تعمل على نقل جميع العناصر الكبيرة إلى يمين القائمة 
(أي يمين العنصر المنتخب) وأيضاً نقل جميع العناصر الصغيرة إلى يسار القائمة. وهذه العملية 
تحتاج إلى مؤشرين (5عءال١ا )٠۷٠‏ الأول ( 1) وهو الأيسر » يتحرك من اليسار إلى اليمين. 
والثاني ( ) وهو الأيمن » ويتحرك من اليمين إلى اليسار حسب الخوارزمية الآتية: 


.١‏ عندما يكون ( 1) يسار ( ) » يتحرك ( 1) نحو اليمين متخطياً كل العناصر التي تكون 
قيمها أصغر من قيمة العنصر المنتخب. 

.)1 إذا وجد أي عنصر أكبر من قيمة العنصر المنتخب . يتوقف المؤشر(‎ .٣ 

.٣‏ عندما يكون ( ر) يمين ( 1) » يتحرك ( ) نحو اليسار متخطياً كل العناصر التي تكون 
قيمها أكبر من قيمة العنصر المنتخب. 

>. إذا وجد أي عنصر أصغر من قيمة العنصر المنتخب » يتوقف المؤشر( 7). 

ه. عندما يتوقف كل من ( 1) و ( ر) فهذا يعني أن هناك عملية تبديل. 

. عندما يتقاطع ))۲٥55(‏ المؤشر ( 1) مع المؤشر ( ) تتوقف عملية المقارنة وتستبدل 
قيمة العنصر المنتخب بقيمة العنصر الذي حدثت عنه عملية التقاطع. 
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۷. بعد تحديد القيمة الجديدة للعنصر المنتخب » تجري عملية الترتيب لكل جزء على حدا. 
۸. بشکل تکراري » یتم اختیار عنصر منتخب لكل جزء وتعاد الخطوات من .۷-١‏ 


متال تطبیقی: 
+ رتب القائمة الآتية ترتيباً تصاعديا؟ 
و 


E E ET 


+ الحل: 
.١‏ اختيار العنصر المنتخب باستخدام طريقة القيمة الوسطى بين ثلاث قيم [57,81,24]. 
والعنصر سيتكون القيمة (57). 
.٣‏ ترتيب العناصر الثلات كما في الشكل: 
Pivot =57‏ 


i Î A ê E E i Î RE SA E E SK KHE 


ف الا هن الور افاني الان الف الال هن الاه كن اط( 


Pivot =57 


E E E A E A A RE BO GODS E 


Pivot =57 
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Pivot =57 


EE E O E o I i i RA E A Û O iD EE 


Pivot =57 


Pivot =57 


Pivot =57 


Pivot =57 
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LECTIN Irv [N efor fvefvs JrnofevfipPvvfv.| | 


ا 1 


Pivot =57 


E E E EA E E E KA E E Ê Kê î Û Î Î Û HEW 


i j 


Pivot =57 


SEREF EEF EERE 


Pivot =57 


EE E f E Î Kî î EA Ê E KJ Î KÎ E KÎ Ê Kî ÛÎ KÎ EE 


i,j 


Pivot =57 


E E E EÛ E E Î E A E A i A E E Î Ki E Ki E E 


1 


i,j 


.٤‏ بعد تحديد الموقع الصحيح للعنصر المنتخب » نلاحظ أن جميع العناصر التي قيمها أصغر 
من العنصر المنتخب أصبحت في جهة اليسار ويقية العناصر في جهة اليمين. 

ه. تطبيق الخوارزمية من جديد على كل جزء من القائمة وينفس الخطوات المذكورة سابقاً 
كما في الشكل : 
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Pivot =24 Pivot =74 


QENE O I EO E O I O IE OI I i EO 


.٦‏ نستمر بتطبيق الخوارزمية لحين الوصول إلى قائمة مرتبة وكما في الشكل التالي: 
I HI HEI E E IRI KH HI HRI HI DI KI‏ 


Example:- 


program quick1; 

const maxlength=30; 

type 

list=array [1. .maxlength] of integer; 
var num:list; 


first,last, length, index: integer; 


procedure fillarray (var num:list;var length: integer) ; 
var index:integer; 

begin 

writeln ('enter the numbers of elements in the list:'); 
readln (length) ; 

writeln ('enter the element of the list:'); 

for index:=1 to length do 

begin 

write ('num' ,index,'='); 

readln (num[index]) ; 

end; 


end; 


procedure quicksort (var num:list;left,right:integer) ; 
var pivot, temp, leftarrow,rightarrow:integer; 

begin 

leftarrow:=left; 

rightarrow:=right; 

pivot:=num [ (left+right) div 2]; 


repeat 
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while num [rightarrow]>pivot do 
rightarrow:=rightarrow-1; 

while num [leftarrow]<pivot do 
leftarrow:=leftarrow+1; 

1f leftarrow<=rightarrow then 
begin 

temp :=num [leftarrow] ; 

num [leftarrow] :=num [rightarrow] ; 
num [rightarrow] :=temp; 
leftarrow:=leftarrow+1; 
rightarrow:=rightarrow-1; 

end; 

until rightarrow<leftarrow; 

if left<rightarrow then 
quicksort (num, left,rightarrow) ; 
if leftarrow<right then 
quicksort (num, leftarrow,right) ; 


end; 


procedure printlist(num:list;length: integer) ; 
var index:integer; 

begin 

writeln; 

writeln ('the sorted list is:'); 

writeln; 

for index:=1 to length do 

write(' ',num[index]) ; 

writeln; 


end; 


begin {main program} 
fillarray (num, length) ; 

writeln ('the list befor sorting is:'); 
writeln; 

for index:=1 to length do 


write (' ',num[index]) ; 
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writeln; 

quicksort (num,1,length) ; 
printlist (num, length) ; 
readln; 


end. 


Output:- 
enter the numbers of elements in the list: 
4 
enter the element of the list: 
num1=12 
num2=5 
num3=33 
num4=2 
the list befor sorting is: 
12 5 33 2 
the sorted list is: 


2 5 12 33 


Example:- 
program quick2; 


const m=4; 

type 
employee=record 
name:string [20] ; 
no:integer; 
salary:real; 
place:string [20]; 


scale:string [20]; 
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end; 

data=array [1..m]of employee; 

var a:data; emp,min: employee; 
loc,item,i,b, target, j],c,k,n,no:integer; 

procedure linearsearch (item: integer) ; 

begin 

n:=m-1; 

a[n+1].no:=item; 

loc:=1; 

while a[loc] .no<>item do 

loc:=loc+1; 

if loc=n+1 then 

writeln ('this record is not found') 

else 

begin 

writeln ('the record location is by linear search is:',loc); 
writeln ('the data of this employee is:'); 

writeln ('name no salary place scale'); 


with emp do 


writeln (a [loc] .name, ' ',a[loc].no,' ',a[loc].salary, ' 
',a[loc] .place,' ',a[loc] .scale); 

end; 

end; 


procedure quicksort (var num:data;left,right: integer) ; 
var leftarrow,rightarrow:integer; 
temp ,pivot: employee; 

begin 

leftarrow:=left; 

rightarrow:=right; 

pivot:=num[ (left+right) div 2]; 
repeat 

while num [rightarrow] .no>pivot.no do 
rightarrow:=rightarrow-1; 

while num [leftarrow] .no<pivot.no do 


leftarrow:=leftarrow+1; 


225 


Safiya Najeh 


DATA STRUCTURES - PASCAL 


if leftarrow<=rightarrow then 
begin 

temp :=num [leftarrow] ; 

num [leftarrow] :=num [rightarrow] ; 
num [rightarrow] :=temp; 
leftarrow:=leftarrow+1; 
rightarrow:=rightarrow-1; 

end; 

until rightarrow<leftarrow; 

if left<rightarrow then 
quicksort (num, left,rightarrow) ; 
1f leftarrow<right then 
quicksort (num, leftarrow,right) ; 


end; 


function binarysearch (var a:data; target: integer) :integer; 
var first,last,midd: integer; 

begin 

first:=1; last:=3; 

repeat 

midd:=(first+last) div 2; 

if a[midd] .no>target then 

last:=midd-1 

else 

f£irst:=midd+1; 

until (first>last) or (a[midd] .no=target) ; 
if a[midd] .no=target then 
binarysearch:=midd 

else 

binarysearch:=0; 


end; 


begin {main program} 
writeln ('enter the number of emplyees:'); 


readln (no) ; 
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writeln ('enter the data of employees:'); 
for i:=1 to no do 

begin 

write ('enter the name of employee',i,': '); 
readln (a[i] .name) ; 

write ('enter the no of employee',i,': '); 


readln (a[i] .no) ; 


س 
“e‏ 


write ('enter the salary of employee',i, 
readln (a[i] .salary) ; 

write ('enter the place of employee',i,': '); 

readln (a[i] .place) ; 

write ('enter the scale of employee',i,': '); 

readln (a[i] .scale) ; 

end; 

writeln ('the data of employee are:'); 

writeln ('name no salary place scale'); 


for i:=1 to no do 


writeln (a[i] .name, ' ',a[i].no,' ',a[i].salary, ' 
',a[i] .place, ' ',a[i].scale); 
writeln; 


writeln ('enter the no of employee to search by linear search:'); 
readln (item) ; 

l1linearsearch (item) ; 

writeln; 

quicksort (a,1,no) ; 

writeln ('the sort of record is:'); 

writeln ('name no salary place scale') ; 


for i:=1 to no do 


writeln (a[i] .name, ' ',al[li].no,' ',a[i].salary, ' 
',a[i] .place, ' ',a[i].scale); 
writeln; 


writeln ('enter the no of employee to search by binary search:'); 
readln (target) ; 

b:=binarysearch (a, target) ; 

if a[b] .no=target then 

begin 
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writeln ('the record location by binary search is=',b); 


writeln ('the data of this employee is:'); 


writeln ('name no salary place scale'); 
writeln (a[b] .name, ' ',a[b].no,' ',a[b].salary, ' 
',a[b] .place, ' ',a[b].scale); 


a[b] .name:='0'; 
a[b] .no:=0; 

a[b].salary:=0; 
a[b] .place:='0'; 


a[b].scale:='0'; 


writeln; 

writeln ('name no salary place scale') ; 
writeln (a[b] .name, ' ',a[b].no,' ',a[b].salary, ' 
',a[b] .place, ' ',a[b] .scale) ; 

end 

else 


writeln ('this record is not found') ; 

writeln; 

writeln ('the data of employee are:'); 

writeln ('name no salary place scale') ; 


for i:=1 to no do 


writeln (a[i] .name, ' ',a[li].no,' ',a[i].salary,' 
',a[i] .place, ' ',a[i].scale); 

readln; 

end. 

Output:- 


enter the number of emplyees: 


enter the data of employees: 

enter the name of employeel: duaa 

enter the no of employeel: 2 

enter the salary of employeel: 1132.3223 
enter the place of employeel: sudia 


enter the scale of employeel: q 
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enter the name of employee2: mariam 
enter the no of employee2: 22 

enter the salary of employee2: 323.231 
enter the place of employee2: sudia 
enter the scale of employee2: r 


the data of employee are: 


name no salary place scale 
duaa 2 1.1323223000E+03 sudia q 
mariam 22 3.2323100000E+02 sudia r 


enter the no of employee to search by linear search: 

2 

the record location is by linear search is:1 

the data of this employee is: 

name no salary place scale 


duaa 2 1.1323223000E+03 sudia q 


the sort of record is: 


name no salary place scale 
duaa 2 1.1323223000E+03 sudia qa 
mariam 22 3.2323100000E+02 sudia r 


enter the no of employee to search by binary search: 
2 

the record location by binary search is=1 

the data of this employee is: 


name no salary place scale 
duaa 2 1.1323223000E+03 sudia q 
name no salary place scale 
0 0 0. 0000000000E +00 0 0 

the data of employee are: 

name no salary place scale 
0 0 0. 0000000000E +00 0 0 
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mariam 22 3.2323100000E+02 sudia r 


-: External Sorting Algorithms يزJح۳راخلlاl خوارزميات الترتيب‎ (۹-2( 
-: Merg Sort الدمج التنائي‎ 
Example:- 
program mergel + 
type 
student=record 
name:string؛‎ 
idno: integer: 
end: 
var stl,st2,st3:array[1..5] of student: 
1i1,j,c,k,n:integer; min:student؛‎ 


f£1,f£2,f£3:file of student: 


procedure insertion_1: 
begin 

for i:=1 to n do 
begin 

k:=0؛‎ 

min:=st1 [i]; 

for j:=i to n do 

if min.idno>st1 [j] .idno then 
begin 

min:=stl1[]j]; 

k:=j‘ 


end: 
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for c:=k downto i do 
st1 [c]:=st1 [c-1]; 
st1[i]:=min؛‎ 

end: 


end: 


procedure insertion_2؛‎ 
begin 

for i:=1 to n do 
begin 

k:=0؛‎ 

min:=st2 [i]; 

for j]:=i to n do 

if min.idno>st2 [j] .idno then 
begin 

min:=st2[]]; 

k:=j‘ 

end: 

for c:=k downto i do 
st2 [c]:=st2 [c-1]; 
st2 [i] :=min؛‎ 

end: 

end: 

procedure mergesort: 
begin 

reset (f1) ; 

reset (f2) ; 

rewrite (f3) ; 


read(f1,st1[i]); 
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read(f2,st2[i]); 

repeat 

if st1[i] .idno<st2 [i] .idno then 
begin 

write (f£3,st1[i]) ; 

if not eof (f1) then 
read(f1,st1[i]); 

end 

else 

if st1[i] .idno=st2 [i] .idno then 
begin 

write (f£3,st1[i]); 

if (not eof (f1)) and (not eof (f2) ) then 
begin 

read(f1,st1[i]); 
read(f2,st2[i]); 

end: 

end 

else 

begin 

write (f£3,st2[i]); 

if not eof (f2) then 
read(f2,st2[i]); 

end: 

until (eof(f1)) and (eof(f2)); 
if st1[i] .idno<st2 [i] .idno then 
begin 

write (f£3,st1[i]); 


write (f£3,st2[i]) ; 
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end 

else 

begin 

write (f£3,st2[i]); 

write (f£3,st1[i]); 

end: 

close (f1) ; 

close (f2) ; 

close (f3); 

end: 

begin {main program} 

assign (f1, 'c:\filel.dat’); 
assign (f2,'c:\file2.dat’); 
assign (f£3,'c:\file3.dat’); 
rewrite (f1) ; 

rewrite (f2) ; 

writeln ('enter the value of n:'’); 
readln (n) ; 

writeln ('enter the data of file 1:’); 
for i:=1 to n do 

with stl1[i] do 

begin 

write ('enter the name[',i«’]:'); 
readln (name) ; 

write ('enter the idno[',i«'’]:'); 
readln (idno) ; 

end: 

insertion_1: 


for i:=1 to n do 
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write (f1,stl1[i]); 

close (f1) ; 

writeln ('the data in file_1 is:’); 
reset (f1) ; 

writeln ('name idno’); 

while not eof (f1) do 

begin 

read(f1,st1[i]); 

with stl1[i] do 

writeln (name, ' ' ,1dn0o( ; 

end: 

close (f1) ; 

writeln ('enter the data of file 2:’); 
for i:=1 to n do 

with st2[i] do 

begin 

write ('enter the name[',i«'’]:'); 
readln (name) ; 

write ('enter the idno[',i«'’]:'); 
readln (idno) ; 

end: 

insertion_2:4 

for i:=1 to n do 

write (f£2,st2[i]); 

close (f2) ; 

writeln ('the data in file_2 is:’); 
reset (f2) ; 

writeln ('name idno’); 


while not eof (f2) do 


ZEL 


DATA STRUCTURES PASCAL Safiya Najeh 


begin 

read(f2,st2[i]); 

with st2[i] do 

writeln (name, ' ',1dصo(‎ ; 
end: 

close (f2) ; 

mergesort؛‎ 

writeln ('the data in file_3 is:’); 
writeln؛‎ 

reset (f3) ; 

writeln ('name idno’); 
while not eof (f3) do 
begin 

read(f3,st3[i]); 

with st3[i] do 

writeln (name, ' ',idno) ; 
end: 

close (f3) ; 

readln: 

end. 

Output:- 


enter the value of n: 


enter the data of file_1: 
enter the name [1] : samy 
enter the idno[1]:13 
enter the name [2] :mohamed 
enter the idno [2] :1 


enter the name [3] :ahamd 
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enter the idno [3] :135 
the data in file 1 is: 
name 1idno 

mohamed 1 

samy 13 

ahamd 135 

enter the data of file_2: 
enter the name [1] : fatima 
enter the idno [1] :16 
enter the name [2] :yaser 
enter the idno [2] :10 
enter the name [3] :walla 
enter the idno [3] :3 


the data in file _2 is: 


name idno 
walla 3 
yaser 10 


fatima 16 
the data in file _3 is: 
name idno 


mohamed 1 


walla 3 
yaser 10 
samy 13 


fatima 16 


ahamd 135 


Example:- 


program merge2; 
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scale'); 


const m=5; 

type 

student=record 
name:string [20] ; 
no:integer; 

salary:real; 

place:string [20]; 
scale:string [20]; 

end; 

data=array [1..m]of student; 
var st1,st2,st3:data; 
min:student; 

loc,item,b, target,i,],c,k,n,l:integer; 


f£1,f£2,f£3:file of student; 


procedure linearsearch (item: integer) ; 
begin 

1:=m-1; 

st3 [1+1] .no:=item; 

loc:=1; 

while st3[loc] .no<>item do 

loc:=loc+1; 

if loc=n+1 then 

writeln ('this record is not found') 
else 

begin 

writeln ('the record location is:',loc); 
writeln ('the data of this student is:'); 


writeln ('name no salary place 
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with st3[loc] do 


writeln (name, ' e ',salary, ' ',place,' 
',scale); 


end; 


end; 


procedure insertion_1; 
begin 

for i:=1 to n do 
begin 

k:=0; 

min:=st1 [i]; 

for j:=i to n do 

if min.no>stl1 [jJ] .no then 
begin 

min:=stl1[j]; 

k:=j; 

end; 

for c:=k downto i do 
st1 [c]:=st1 [c-1]; 

st1 [i] :=min; 

end; 


end; 


procedure insertion_2; 
begin 

for i:=1 to n do 
begin 

k:=0; 


min:=st2 [i]; 
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for j:=i to n do 

if min.no>st2 [j] .no then 
begin 

min:=st2[]j]; 

k:=j; 

end; 

for c:=k downto i do 

st2 [c]:=st2 [c-1]; 

st2 [i] :=min; 

end; 


end; 


procedure mergesort; 

begin 

reset (f1) ; 

reset (f2) ; 

rewrite (f3) ; 
read(f1,st1[i]) ; 
read(f£2,st2[i]) ; 

repeat 

if st1[i].no<st2[i].no then 
begin 

write (f£3,st1[i]); 

if not eof (f1) then 
read(f1,st1[i]) ; 

end 

else 

if st1[i].no=st2 [i] .no then 


begin 
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write (f£3,st1[i]); 

if (not eof(f1)) and (not eof (f2) ) then 
begin 

read(f1,st1[i]); 
read(f2,st2[i]) ; 

end; 

end 

else 

begin 

write (f£3,st2[i]); 

if not eof (f2) then 
read(f2,st2[i]); 

end; 

until (eof(f1)) and (eof(f2)); 
if st1[i].no<st2 [i] .no then 
begin 

write (f£3,st1[i]); 

write (f£3,st2[i]); 

end 

else 

begin 

write (f£3,st2[i]); 

write (f£3,st1[i]); 

end; 

close (f1) ; 

close (f2) ; 

close (f3) ; 


end; 
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function binarysearch (var st3:data; target:integer) :integer; 
var first,last,midd: integer; 

begin 

first:=1; last:=4; 

repeat 

midd:=(first+last) div 2; 

if st3[midd] .no>target then 

last:=midd-1 

else 

first:=midd+1; 

until (first>last) or (st3 [midd] .no=target) ; 
if st3[midd] .no=target then 
binarysearch:=midd 

else 

binarysearch:=0; 


end; 


begin {main program} 

assign (f1, 'c:\tp\file1.dat') ; 

assign (f2,'c:\tp\file2.dat') ; 

assign (f3, 'c:\tp\file3.dat') ; 

rewrite (f1) ; 

rewrite (f2) ; 

writeln ('enter the number of student: '); 
readln (n) ; 

writeln ('enter the data of file 1:'); 
for i:=1 to n do 


with st1[i] do 
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begin 


writeln ('enter the data of student[',i,']:'); 


); 


); 


); 


(7 


"); 


write ('enter the name: 
readln (name) ; 
write ('enter the no: 


readln (no) ; 


write ('enter the salary: 


readln (salary) ; 

write ('enter the place: 
readln (place) ; 

write ('enter the scale: 
readln (scale) ; 

end; 

insertion_1; 

for i:=1 to n do 

write (f1,st1[i]); 


close (f1) ; 


writeln ('the data in file _1 is:'); 


salary place scale'); 


',salary, ' ',place,' 


f ,no, ۲ 


reset (f1) ; 

writeln ('name no 
while not eof (f1) do 
begin 
read(f1,st1[i]) ; 
with stl1[i] do 


writeln (name, ' 
',scale); 


writeln; 
end; 


close (f1) ; 
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writeln ('enter the data of file 2:'); 
for i:=1 to n do 

with st2[i] do 

begin 

writeln ('enter the data of student[',i,']:'); 
write ('enter the name: '); 

readln (name) ; 

write ('enter the no: '); 

readln (no) ; 

write ('enter the salary: '); 

readln (salary) ; 

write ('enter the place: '); 

readln (place) ; 

write ('enter the scale: '); 

readln (scale) ; 

end; 

insertion_2; 

for i:=1 to n do 

write (f£2,st2[i]) ; 

close (f2); 

writeln ('the data in file_2 is:'); 
reset (f2) ; 

writeln ('name no salary place scale'); 
while not eof (f2) do 

begin 

read(f£2,st2[i]) ; 

with st2[i] do 


writeln (name, ' ',no,' ',salary, ' ',place,' 
',scale); 


writeln; 


243 


DATA STRUCTURES PASCAL Safiya Najeh 


end; 

close (f2) ; 

mergesort; 

writeln ('the data in file_3 is:'); 
writeln; 

reset (f3) ; 

writeln ('name no salary place scale'); 
while not eof (f3) do 

begin 

read(f£3,st3[i]) ; 

with st3[i] do 


writeln (name, ' ',no,' ',salary, ' ',place,' 
',scale); 


writeln; 

end; 

close (f3) ; 

reset (f3) ; 

1i:=1; 

while not eof (f3) do 
begin 
read(f£3,st3[i]) ; 
1:=1+1; 

end; 


close (f3) ; 


writeln ('enter the no of student to search-->linear search:'); 
readln (item) ; 

linearsearch (item) ; 

writeln; 


writeln ('enter the no of student to search-->binary search:'); 
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readln (target) ; 

b:=binarysearch (st3, target) ; 

if st3[b] .no=target then 

begin 

writeln (' the record location=' ,b) ; 

writeln ('the data of this student is:'); 

writeln ('name no salary place scale') ; 
with st3[b] do 

begin 


writeln (name, ' ',no,' ',salary, ' ',place,' 
',scale); 


name:='0'; 

no:=0; 

salary:=0; 

place:='0'; 

scale:='0'; 

end; 

writeln; 

writeln ('name no salary place scale'); 
with st3[b] do 


writeln (name, ' TRO," ',salary, ' ',place,' 
',scale); 


end 

else 

writeln ('this record is not found') ; 

writeln; 

writeln ('the data of student are:'); 

writeln ('name no salary place scale'); 
for i:=1 to n do 


with st3[i] do 
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writeln (name, ' ',no,' ',salary, ' ',place,' 
',scale); 


readln; 


end. 


Output:- 

enter the number of student: 
2 

enter the data of file_1: 
enter the data of student [1] : 
enter the name: wegdo 

enter the no: 23 

enter the salary: 123.434 
enter the place: sudan 

enter the scale: w 

enter the data of student [2] : 
enter the name: lubna 

enter the no: 5 

enter the salary: 1232.323 
enter the place: sudan 

enter the scale: e 


the data in file 1 is: 


name no salary place scale 
lubna 5 1.2323230000E+03 sudan e 
wegdo 23 1.2343400000E+02 sudan Ww 


enter the data of file_2: 
enter the data of student [1] : 
enter the name: fatima 


enter the no: 8 
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place scale 
sudan q 


sudan ¥ 


place scale 
sudan e 
sudan q 


sudan WwW 


sudan ¥ 


search: 


place scale 


sudan q 


enter the salary: 1323.232 
enter the place: sudan 

enter the scale: q 

enter the data of student [2] : 
enter the name: haneen 

enter the no: 97 

enter the salary: 23.3232 
enter the place: sudan 

enter the scale: y 


the data in file _2 is: 


name no salary 
fatima 8 1.3232320000E+03 
haneen 97 2.3323200000E+01 


the data in file _ 3 is: 


name no salary 

lubna 5 1.2323230000E+03 
fatima 8 1.3232320000E+03 
wegdo 23 1.2343400000E+02 
haneen 97 2. 3323200000E+01 


enter the no of student to search-->linear 


8 

the record location is:2 
the data of this student is: 
name no salary 


fatima 8 1. 3232320000E+03 
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enter the no of student to search-->binary search: 


place scale 


sudan e 


scale 


scale 


5 


the record location=1 


the data of this student is: 


name no salary 
lubna 5 1.2323230000E+03 
name no salary 
0 0 0. 0000000000E +00 


the data of student are: 


name no salary 
0 0 0. 0000000000E+00 
fatima 8 1.3232320000E+03 


3K XK XK 5K 3K 3K 3K 3K XK 3K 2K 3K 3F 3K 3F 3K 3K 2K 3K 3K 3K 3K 2K 3K 3K 3K 3K 3K 3K 3K 3K 3F 3K 3K 3K 3K 5K 3K 5K 
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-: مقدمة عن الأشجار كبنية بيانات‎ )٠١-١( 

إن بنية البيانات هذه لها درجة عالية من الأهمية » وهي تحتوي على بيانات ترتبط فيما بينها عن 
طريق فروع 8١٤165‏ . أي أنها لاتعتمد على التركيب الخطي في تكوينها ‏ فليس بالضرورة أن 
يرتبط العنصر فيها بعنصر واحد أمامه وعنصر واحد خلفه . 


تعریف :- 
الشجرة هي مجموعة محدودة » تتكون من عقدة واحده أو أكثر بحيث 
-١‏ توجد بها عقدة مصممة بشکل خاص تسمی الجذر ۲00 . 
-٣‏ العقد الباقيه مقسمة إلى 0=<" من المجموعات ۲1.....1١‏ المنفصله بحيت كل واحده 
من هذه المجموعات تكون شجرة ۲1.....1١‏ تسمی شجریرات ۴5٤۴٣طاS‏ من الجذر . 
انظر للشجرة التالية وحاول ان تربط بين ماسبق من التعريفات وماهو موضح بالشكل لتستطيع ان 
تتخيل شكل الشجرة :- 


ه إن الشجرة السابقة بها ١١‏ عقدة عل۸0 . يحتوي عنصر البيانات في كل عقدة على حرق > 
جذر هذه الشجرة هي العقدة التي يحتوي عنصر البيانات فيها على الحرف ۸ » لاحظ أننا 
رسمنا الشجرة وجذرها إلى الأعلى » وهذا هو المنهج المتبع في رسم الأشجار » إن عدد 
الأشجار التي تتفرع من عقدة ما يسمى درجة العقدة عل۸"0 أه ععإوم0 فدرجة العقدة 
التي تحتوي على على ۸ هي ۲ بينما درجة العقدة التي تحتوي على ٤‏ هي ١‏ » أما 
درجة العقدة × فهي صفر » إن العقدة التي تكون درجتها مساوية للصفر تسمى ورقة fةعا‏ 
أو عقدة نهائية عله" اة٣أ ٣6۲٣‏ . بناء على ماسبق فإن }6,5M,1,3,ا,))‏ هي مجموعة 
العقد الورقية » وبعكس ذلك فإن العقد التي درحتها لا تساوي الصفر تسمى عقدآً داخليه 
Node‏ اNontermina‏ ماعدا الجذر » إن جذور الشجيرات التي تتفرع من عقدة ما ولتكن × 
تسمی أبناء ٣۲ا۸‏ ل × » و × يسمى أباً ۴۲٠٣١۲‏ لهؤلاء الأبناء » وبالنظر إلى شجرتنا 
السابقه نلاحظ أن أبناء 2 هم ١,1,3‏ » وأب 0© هوه . 
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ه إن بناء الأب الواحد يسمون أشقاء كواطاS‏ . وبذلك فإن ۳,1,3 هم أشقاء لأن لهم نفس 
الأب 0 . 


درحة willجرة Degree of tree‏ : 
هي أعلى درجة للعقد في الشجرة » ويالتالي فإن درجة الشجرة السابقة هي ٣‏ . 


مستوى العقدة عع Level of r‏ : 
إذا قلنا أن عقدة ما في المستوى ا » فإن أبنائها سوف يكونون في المستوى 1+1 » فإذا 
افترضنا أن الجذر يقع في المستوى ١‏ فإن الإبن ك يقع في المستوى ۲ . 


إرتغاع llشجرة Height of tree‏ : 
هو أعلى مستوى يمكن أن تأخذها عقدة في الشجرة » وبذلك يكون إرتفاع الشجرة السابقة 
هو ۲ . 


: Forest oبlخll‎ 

هي مجموعة بها عدد ١"<=0‏ من الأشجار المنفصلة عن بعضها . لا حظ أننا إذا أزلنا جذر 
الشجرة فإننا سوف نحصل على غابة > على سبيل المتال في الشجرة السابقة إذا أزلنا ۸ 
فسوف نحصل على غابة مكونة من ۲ أشجار. 


)٠١-۲(‏ أنواع الأشجار:- 


. الأشجار الثنائية‎ -١ 
: الأ شار التوارتة‎ 


-: Binary Tree öيئنlنûلاl الأشجار‎ )٠١-۲( 

تعتبر الأشجار الثنائية من الأنواع المهمة في بنيات الأشجار » وهي تتصف بأن أي عقدة فيها يمكن 
أن يكون لديها على الأكثر فرعان » أي أنه لاتوجد بها عقدة درجتها أكبر من ۲ » في الأشجار 
الثنائية فإننا نميز بين الشجيرة اليمنى والشجيرة اليسرى للعقدة الواحده . 

تعریف:- 


الشجرة الثنائية هي مجموعة محدودة من العقد » وهذه المجموعة إما أن تكون خالية » أو أنها 
تحتوي على جذر وشجيرتين على الأكثر منفصلتين تسميان الشجيرة اليسرى ٤ع٣†طSu‏ ا۴ا » 
والشجيرة اليمنى عع5†۲ Rig Su‏ .» وهاتان الشجرتان متصالتان بالجذر » وكل منهما تمثل شجرة . 
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لاحظ أن هذا التعريف هو تعريف مجرد » ولتحديد الشجرة الثنائية كنوع من أنواع البيانات المجردة › 
يجب علينا أن نوضح ماهي العمليات التي يمكن أن تجرى على الشجرة الثنائية » لاحظ أيضاً أن 
هذا التعريف لم يبين لنا طريقة ترتيب العقد داخل الشجرة . 


إن الأشجار الثنائية تستخدم لعدة أغراض من ضمنها البحث » وفي الفقرة التالية نستعرض نوع 
من أنواع الأشجار الثنائية التي تستخدم في عمليات البحث والترتيب . 


-: Binary Search Tree aıئliill شجرة البيحن‎ 
تعریف:-‎ 


هي شجرة ثنائية » والتي إما أن تكون خالية أو أن كل عقدة فيها تحتوي على مفتاح يحقق 
الشروط التالية : 


آ کل الات (ان ودف قن اة الك أف هى اة القدة قي الخد 
مقا الفقدذة الجذر أفكرمن كل المفافة لان وخدى) فى الفهة اليختى. 
١‏ الكتجة التففى والفجرة النفورك تى غاها تفس الخروظط العافة 


والمثال التالي يوضح شكل شجرة البحث الثنائية :- 


لاحظ أن كل المفاتيح التي تقع في الشجرة اليمنى المتصله بالجذر ه هي أكبر من ٥‏ » وأن كل 
المفاتيح التي تقع في الشجيرة اليسرى المتصلة بالجذر ٠ه‏ هي أصغر من ٠‏ . وكذلك لو أخذنا كل 
شجيرة من الشجيرتين (۲)2 و (۲)7 فإننا سوف نلاحظ نفس الملاحظة . 


تمتيل شجرة البحت الثنائية في لغة باسكال :- 
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ه لتسهيل التعامل مع الشجرة الثنائية فإننا سوف نستخدم بنية بيانات متحركه لتمثيلها » 
سوف نستخدم المتغير مؤشر ليدلنا على مكان الشجرة . إن إسم الإسم المعتاد لذلك 
المؤشر هو ۲٠۵‏ لأنه سوف يشير إلى جذر الشجرة . إذا كانت الشجرة خاليه فإن 
root=nil‏ . 

ه كل عقدة في شجرة البحث الثنائية لها شجيرة يمنى وشجيرة يسرى » وهذا مايمكن 
الحصول عليه باستعمال المؤشرات في هذا الجزء من البرنامج . 


program binary_search tree; 
type 
p=^node; 
node=record 
info:integer; 
left,right:p; 
end; 
var root,pt,ptl,c,s:p; 
F,Z,x,k:integer; 


found: boolean; 


إنشاء عقدة في شجرة :- 

الدالة التالية توضح لنا كيفية إنشاء عقدة تمهيدآً لإضافتها إلى شجرة البحث الثنائية » حيث يتم 
إنشاء مؤشر بإستخدام الدالة 6۷ . والذي يشير إلى سجل يحتوي على ثلاثة حقول » إثنين 
منهما عبارة عن مؤشرات » والثالت من النوع ۲ |٣896‏ ليخزن بداخله المفتاح . 


function creatptr (r:integer) :p; 
var ptr:p; 
begin 
new (ptr) ; 
with ptr^ do 
begin 
info:=r; 
left:=nil; 
right:=nil; 
end; 
creatptr:=ptr; 


end; 
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إضافة عقدة إلى شجرة البحث الثنائية :- 

لنفرض أننا نريد أن نضيف عقدة إلى شجرة البحث الثنائية التي في المثال السابق » هذه العقدة 
تحتوي على المفتاح ۲ . فنبدأً أولاً بمقارنة ۲ مع مفتاح الجذر ه نجد أن 5<3 . الآن ننقل إلى 
الشجيرة اليسرى للجذر » نلاحظ أن جذرها يحتوي على المفتاح ۲ » والذي هو أصغر من ٣‏ لذلك 
نتجه الآن إلى الشجيرة اليمنى » نجد أن المفتاح قيمته > » وهو أكبر من ۲ » ولأن المؤشر الأيسر 
لهذه العقدة يشير إلى اأ » يمكننا إضافة العقدة الجديدة » والتي تحتوي على المفتاح ۲ في هذا 
المكان . لتصبح الشجرة كالتالي: 


شکل(**) 


البرنافح التالى بستخدم النذاء الذاتى لإضافة العقدة المشار إليها بالمؤشر لام إلى الشجرة 
المشار إلى جذرھا بالمۇشر ام : 


procedure add (var pt,ptl:p) ; 
begin 
if pt=nil then 
begin 
pt:=pt1l; 
pt^.left:=nil; 
pt^.right:=nil; 
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end 

else 
if pt1^.info<pt^.info then 
add (pt^*.left,pt1) 

else 
add(pt*.right,pt1l) ; 


end; 


البحث عن مفتاح في شجرة البحث الثنائية :- 


البرنامج التالي يوضح طريقة إستخدام النداء التكراري في البحث عن مفتاح Z‏ في شجرة بحث 
ثنائية مشار إلى جذرها بالمؤشر ۴ ؛ وهو يرجع لنا مؤشر يشير إلى العقدة التي تحتوي على 
المفتاح في حالة وجوده ويؤشر إلى اأ" في حالة عدم وجود المفتاح . 


function search (pt:p; Z:integer) :p; 
begin 
if pt=nil then 
begin 
writeln(z,' is not found') ; 
search:=nil; 
end 
else 
if pt^.info=z then 
search :=pt 
else 
if z<pt^.info then 
search:=search (pt^.left,z) 
else 
search:=search (pt^.right,z) ; 


end; 
-: حذف عقدة من شجرة البحث الثنائية‎ 
إذا كانت العقدة المراد حذفها من الشجرة عبارة عن ورقة فإن الأمر في غاية السهولة کما هو‎ 


مو کي ارتو خف رخف الد الى توي عل فاد( اما كات هتو اذه 
لدیها شجیرتان یمنی ويسرى فإن الأمر يبدو معقداً . 


255 


DATA STRUCTURES PASCAL Safiya Najeh 


في الشكل(**) لنفرض أننا نريد حذق العقدة التي تحتوي على المفتاح ۲ » فكل الذي علينا 
عمله هو أن نرفع الشجيرة اليسرى مكان العقدة ۲ . ونجعل العقدة اليسار للعقدة المراد حذفها 
(۲) تتصل بالعقدة التي تقع أقصى اليمين السفلي للشجيرة > » ويصبح الشكل كالتالي : 


9 
OJ © 
J 


الآن لنفرض أننا نريد حذف العقدة (۷) من الشكل(**) . فالذي يجب عمله هو أن نرفع العقدة ۸ 
(العقده اليمنى) إلى أعلى وتكون العقده ٠‏ عبارة عن شجيرة يسرى للمفتاح (۸) كما هو موضح 


ي الكل( : 
9 


شکل(***) 
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والبرنامج التالي يوضح طريقة الحذق :- 


procedure delet (root:p; var found:boolean; k:longint) ; 
var temp:pP; 
begin 
if root^.info=k then 
found: =true 
else 
if root^.info>k then 
delet (root^.left, found, k) 
else 
delet (root^.right, found,k) ; 
if (found) and (k<>root^.info) then 
begin 
if root^.left^.info=k then 
begin 
temp :=root^.left; 
root^.left:=temp^.left; 
end 
else 
begin 
temp :=root^.right; 
root^.right:=temp^. left; 
end; 
if temp^.right<>nil then 
add (root, temp^.right) ; 
found:=false; 
dispose (temp) ; 
end; 


end; 


ZEY 


DATA STRUCTURES PASCAL Safiya Najeh 


والبرنامح التالي للطباعة :- 


procedure print (root:p) ; 

begin 
while root<>nil do 

begin 
write (root^.info,' '); 
root:=root^.left; 
write (root^.info,' '); 
root:=root^.right; 
write (root^.info,' '); 
writeln; 

end; 

end; 


مناداة البرامج السابقه داخل البرنامج الرئيسي :- 


begin {main program} 


writeln ('1-->creatptr & add'); 
writeln ('2-->searsh') ; 

writeln ('3-->delet') ; 

writeln ('4-->print') ; 

writeln ('5-->exit'); 


repeat 


writeln; 
writeln ('What Do You Want To Do..?'); 
readln (x) ; 
case x of 
1:begin 
writeln ('Enter The Number You Want To Add:'); 
readln (r) ; 
root:=creatptr (r) ; 
add (root,pt1) ; 
end; 
2 :begin 
writeln ('Enter The Number You Want To Search:'); 


readln (z) ; 
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s:=search (pt, Zz) ; 
end; 
3:begin 
writeln ('Enter The Number You Want To Delet:'); 
readln (k) ; 
delet (root, found,k) ; 
end; 
4:print (root) ; 
end; 
until x=5; 
writeln ('The End..'); 
Readln; 
End. 


-: 86-۲۲٤۴ الآأشجار المتوازنه‎ )٠۰-٤( 
-:Balanced Tree aةنزاوتملا مقدمة عن الشجرة‎ 
تعریف:-‎ 


هي عبارة عن شجرة متزنة وكل عقدة تحتوي علي مجموعة من المفاتيح ال sS‏ والمؤشرات 
ال كاعintندP‏ وهي عبارة عن 0۷۸3۳٤٥‏ . ويتضح ذلك في عمليتي الإضافة والحدفء 
فالمستويات تقل وتزيد وترتب حسب العناصر التي تحتويهاء وتستخدم في عملية البحث طريقة 
البحث الثنائي. 


الشجرة المتوازنة من الدرحة ١‏ هي شجرة لها عقدة (حذر) وتتميز بالصفات التالية:- 


-١‏ كل عقدة في هذه الشجرة لديها الآتي: 
×]١[ -‏ وهو عبارة عن عدد المفاتيح المخزنة في العقدة × . 
المفاتيح في العقدة × مرتبة ترتيبا تصاعديا أي أن : 
K(1) <= K(2) <= K(3) <= ............. assess <= K(n).‏ 
العقدة في الشجرة المتوازنة تسمي ورقة 2۴ع1 إذا كان ليس لديها أبناء ١۵ا۸‏ وإلا فإنها 
تسمي عقدة دlخlيö Internal Node‏ . 

-٣‏ إداكانت × عقدة داخلية فإنها تحتوي علي 1+[×] من المؤشرات تشير كل منها إلي ابن من 
أبنائها » أما العقدة الورقية فليس لها أبناء » لذلك فإن مؤشراتها تشير إلي اللاشيء اأ١.‏ 

۲- كل الأوراق لها نفس الإرتفاع» والذي هو نفس ارتفاع الشجرة . 

-٤‏ هنالك حد أدني وحد أقصي لعدد المفاتيح التي يمكن أن تخزن في أي عقدة في الشجرة 
وتحكم هذه الحدود بإستعمال المتغير ۲<2 أي أن 2 هي أصغر درجة لشجرة متوازنة. 
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> كل العقد ما عدا عقدة الجذر تحتوي علي 1-1 من المفاتيح كحد أدني» وبالتالي أي عقدة 
داخلية ماعدا عقدة الجذر تحتوي علي ۲ من الأبناء كحد أدني أما عقدة الجذر فإنها يجب 
أن تحتوي علي مفتاح واحد كحد أدني. 

> كل عقدة يمكن أن تحتوي علي عدد 21-1 من المفاتيح كحد أقصي وبالتالي أي عقدة 
داخلية يمكن أن تحتوي علي عدد 21 من الأبناء كحد أقصي. لذلك فإن العقدة توصف بأنها 
ممتلئة إذا احتوت علي عدد 21-1 من المفاتيح. 


إستعمالات ال ع٥۲e‏ 8-7 :- 


تستخدم ال 8-1۲۴٤‏ لتوضيح مفهوم الفهرسة في الملفات المفهرسة حيث إن الفهرسة ال 
)Indexin9(‏ ماھي إلا 8-۲۲۴ حیث إن كلا منها يحتوي علي جدول به حقلين الأول يعطي 
الحقل المفتاحي الغير متكررء والحقل الثاني يشير إلي السجل الذي يحمل هذه القيمة 

إن عملية قراءة المعلومات من ذاكرة تخزين تانوية دائثما ما تستهلك وقتا كبيرا إذا ما قورن 
بالوقت الذي تستغرقه العمليات التي تجرى علي هذه المعلومات المسترجعة من الذاكرة 
التانوية» وهذه الظاهرة تكون واضحة خاصة في معالجة قاعدة بيانات ضخمة» وقراءة صفحات 
من المعلومات ونقلها إلي الذاكرة الرئيسية في الحاسب تحتاج إلي أن يقوم الحاسب بالبحث 
عدة مرات عن الصفحة المحددة في الذاكرة التانوية ممايستلزم استهلاك وقت كبير. 


يمكن إستعمال الشجرة المتوازنة لتخزين هذه الصفحات للقراءة والتعديل ومن ثم إعادتها إلي 
الذاكرة الثانوية مرة أخري. 


إن كل عقدة في الشجرة المتوازنة يمكن أن تحتوي علي أكثر من صفحة وكل ماكان عامل 
التفرع كبيرا كان ارتفاع الشجرة أقل وبالتالي يصغر زمن البحث عن هذه الصفحة. 


-: Binary Tree sg Balanced Tree J| الغرق بين‎ 


يحتوي ال 8-۲۲٠٠‏ علي جميع العناصر أوالمفاتيح في المستوي الأخير(الورقي)ء بينما ال 
Binary "ree‏ لايحتوي علي جميع العناصر في المستوي الأخير. 
عمليات على الشجرة |لمتوlزية:01'5ټoperati0 Balance tree‏ 


أولآ: عملية البحث 
خوارزمية البحث:- 


إبداً من الجذر » إستخدم مفتاح البحث للوصول إلى الورق. إذا كان مفتاح البحث مساوي للجذر 
إذا تم إيجاد السجل وإلا إذا كان اقل من الجذر إذهب المؤشر اليسار وإلا إذا كان أكبر من الجذر 
إذهب إلى مؤشر اليمين. 
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Search: Start at root; use key comparisons to go to leaf. 

If search key is equal to root node then record is found else 

If its less than root node go to the left pointer else if greater than go to the right 
pointer. 


متال: 
إذا كان لدينا الشجرة المتوازية الاتية :- 


ر 


وإذا أردنا البحث عن العدد ۲۲ نجد أن : 
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إبحث عن المفتاح ۲۲ 


6678 | 718 


نجد أن الموقع العدد هنا 


insert operation :ةفlضإلا تانيا: عملية‎ 

خوارزمية الإضافة:- 

-١‏ أوجد الموقع الصحيح للمفتاح (بإاستخدام عملية الإضافة). 

-٣‏ أضف المفتاح المراد إضافتة إلى العقدة الصحيحة. 

-٣‏ إذا كان هناك مساحة كافة » تمت العملية وإلا إذهب إلى الخطوة التالية. 

-٤‏ إقسم العقدة إلى عقدتين 
أعد توزيع المداخل بإنتظام بين العقدة الحالية والعقدة الجديدة. 

ه- أضف العنصر الوسط إلى عقدة الأب وأضف العنصرين الذين يلي العنصر الوسط إلى 
العقدة الجديدة. 

1- إذهب إلى الخطوة رقم ۳. 


1) Find correct leaf node. 

2) Add index entry to the node. 

3) If enough space, donel!. 

4) Else, split the node. 

Redistribute entries evenly between the current. 
node and the new node. 


5) Insert < middle Key, ptr to new node> to the parent. 
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6) Go to Step 3. 


متال:- 


أدخل السجل الذي یحتو ی 


EES EEE SS TERE TEED KEE 


بعد تطبيق الخوارزمية نجد أن : 


HR EEEREET 68 69 71 76|| 79 84 93‏ 
نجد الموقع المناسب للسجل هنا 
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دو وھ 7 ||76 71 د6 68 ]اد6 57 54 53 1ه 5د[ 22 1225 ]| 27 
أضف السجل إلى العثدة الورقية 


-:۲٣ متال‎ 


ادخل ١‏ لسجل الذي يحتوى 
على المفتاحج رقم Y1‏ 
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11, 30 


3ة 4ة 79 ]|76 71 ف6 ]3ة 57 54 53 41 35 22 15 22| 27 


نجد أن الموقع المناسب للسجل هنا 


51 


68 69 71 Tê 
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Insert record with key 72 


11, 30 [ 


53 54 57 63 


68 69 71 T2 T6 


ET ERE 
ضح السجل في المكان السحج‎ 
بين العقدة الورقية‎ 


|66 71 78 


Ta T76 


العقدة المنقسة:: 
-تبقى السجللاآت التي أكبر سن المفتاح الوسط في العدة 
-السجل الأوسط يذهب إلى سجل الأب 

-السجلات الأصغر من سجل الوسط يذهبون إلى العقدة الجديدة 
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ڪڪ 


آذ الخطوات السفقة إذا لم 
فة الأب 


66 71 «78 | 


[53 54 57 63 


Tê Té 


متال ۳:- 


أضف السجل الذي یحنوی 
على مفتاح رقم ٠١‏ 


66 71 «18 


53 54 57 63 


1 T2 T76 


نجل أن المكان المناسب للسجل هنا 
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é6, 71 8 


53 54 57 3 


ا 


EK EGE 


79 84 93 


انشا عقدة جديدة 


66,71 T8 


53 54 55 57 63 


lL j 


١ 
I 
gl EO EL E 7984 93 
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68 69 
TA T6 


e ۲ E sS i 79 84 93‏ 
-تبقي السجاثت التي اگبر من المفتاح الو سط في العفدة 
-السجلات الأصغر من سجل الوسط يذهبون إلى العقدة الجديدة 


Delete operation: <waلl تالتآً: عملية‎ 

خوارزمية عملية المسح:- 

أك أوخة الفقدة الورقة الضخة (ناستخدام خوا فة النخت: 
٣‏ امتفج السجل المراذ إزالة. 


اا كانت الفقدة التي تم داخلها عملة الخشح تف اهلك و مت عملة الممكة :اغ 
كانت غير ذالك إذهب إلى الخطوة التالية: 


اف فاك اة امار تمل هى الحقدة اله فق :فما لم كى ذلك اذه الف 
الخطوة التالية: 


ه- إدمج العقدة الحالية مع الشقيق 
1- إحذق الفاصل بين العقدة الحالية والعقدة الشقيق و العقدة الأصل. 
۷- إذهب إلى الخطوة رقم ۲. 
Find correct leaf node.‏ )1 
Remove the entry from the node.‏ )2 


3) If the node is at least half full, done!. 
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4) Else, possibly Sorrow some entries from a sibling. 
5) If not possible, merge the node with the sibling. 
6) Delete the separator between the node and the. 
sibling from the parent node. 


7) Go to Step 3. 


متال:- 


i 
o 
ال‎ 


11, 30 


3و 84 79 ]|76 71 69 68 63 54 53 ده 5د[ 22 2225|[ 27 
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دو 84 و7 7٤]‏ 71 وء ]| 63 54 53| 1 || 22 15 12 


نجد ان المكان المناسب للسجل هنا 


دو 4ھ 79| 76 69 68 1 35 ]| 22 15 12 


أ 


إحذف السجل من العقدة الورقية 
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متال ۲:- 


وجدنا موقع السجل 
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11, 30 


EKE 


نحدد المفتاح الأقرب الأكبر 
,(دائما في العقة الررقة) 


نعمل عملية إعادة كتجة 
للسجل الموجود في العقدة 
الورقية مع 

السجل المراد مسحه 
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12 15 22 53 54 63 |68 é6 7€ 7T9 B4 93 


Î 


نحذف السجل من العفقة الورقية 


متال ٣:-۔‏ 


مفتاح رقم ٥‏ 
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[27 |1215 22 53 54 63 [é8 é9 76 |84 3و‎ 


mA 


12 15 22 53 54 63 6® 69 76 84 93 


.احذف السجل من العقدة الورقة 
إالشجرة الآن غير متزنة 
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إذا كان للشقيق على الأقل 1+1 من السجلات 
أعد توزيع السجلات بين :الشقيق 
»الأصل »و عقدة البحث. 


الشجرة الآن متوازية 
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متال £:- 


امسح السجل الذي يحتوي على ال 
المفتاح 1 


نجد أن السجل موقعه هنا 


والشجرة الآن غير متزئة! 
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EOE 


الشقيق قليل جدا <1+لسجلات 
نقوم بدمج كل من العقدة الحالية والشثيق مع عقدة الأصل 


الشجرة غير متزنة! 
نكرر عملية الموازنة السابقة. 


> الشقيق أقل من [+[سن 
السجلات 

ندمج العتدة الحالية مع الشقيق 
والأصل 


تم دمج الجذر والابناء 
١‏ في عقدة الجذر 


EKS | EEK CKEEL 


[22,51 66 19 3 


2 11 12 15 30 41 | 53 54 83 68 69 T6 84 33 
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Program :- 
program btree2; 


const 

max=4; 

min=2; 

type 

pointer=^node; 

position=0. .max; 

node=record 
count:position; 
key:array [1..max]of integer; 
branch:array [position] of pointer; 


end; 


var 
yr,root,xr,p, targetnode:pointer; 
newkey,newkey2,target,no,n,x,y:integer; 
found,pushup : boolean; 


targetpos,k:position; 


procedure searchnode (target: integer;p:pointer;var found:boolean; 
var k:position) ; 
begin 
with p^ do 
if target<key [1] then 
begin 
found:=false; 
k:=0; 


end 


else begin 


k:=count; 
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while (target<key[k]) and (k>1) do 
k:=k-1; 
found: =true; 
target:=key [k]; 
writeln('yes this key is found, & the key is: ',target) 
end 


end; 


procedure search (target: integer;root:pointer;var found: boolean; 


var targetnode:pointer; var targetpos:position) ; 


begin 
if root=nil then 
begin 
found:=false; 
writeln ('no key in this tree..'); 


end 


else begin 
searchnode (target, root, found, targetpos) ; 
if found then 
begin 
targetnode:=root; 
writeln('this target is found..', target) ; 
end 


else 


search (target, root^.branch [targetpos] , found, targetnode, targetpos) 
end 


end; 


procedure pushin (x:integer;xr,p:pointer;k:position) ; 
var 
i:position; 
begin 
with p^ do 
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begin 
for i:=count downto k+1 do 
begin 
key [i+1] :=key[i]; 
branch [i+1] :=branch[i] ; 


end; 


key [k+1] :=x; 

branch [k+1] :=xr; 

count :=count+t1 
end 


end; 


procedure split(x:integer;xr,p:pointer;k:position;var y:integer; 
var yr:pointer) ; 
var 
1i,mediam:position; 
begin 
if k<=min then 
mediam:=min 
else 
mediam: =min+1; 
new (yr) ; 
with p^ do 
begin 
for i:=mediam+t1 to max do 
begin 
yr^ .key [i-mediam] :=key [i]; 
yr^.branch [i-mediam] :=branch [i] 
end; 
yr^.count : =max-mediam; 
count :=mediam; 
if k<=min then 
pushin (x,xr,p,k) 
else 


pushin (x,xr,yr,k-mediam) ; 
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y:=key [count] ; 
yr^.branch [0] :=branch [count] ; 
count :=count-1 

end 


end; 


procedure pushdown (newkey: integer;p:pointer;var pushup: boolean; 
var x:integer; var xr:pointer) ; 
var 
k:position; 
found: boolean; 
begin 
if p=nil then 
begin 
pushup:=true; 
x:=newkey; 
xr:=nil 


end 


else begin 
searchnode (newkey,p, found,k) ; 
if found then 
{I am change this statment} 
begin 
writeln ('Error:inserting dublicate key'); 
write ('enter new key to insert: '); 
readln (newkey2) ; 
pushdown (newkey2{} ,p^.branch [k] ,pushup,x, xr) 
end 
else 
1f pushup then 
with p^ do 
if count<max then 
begin 
pushup:=false; 


pushin (x,xr,P,k) 
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end 


else begin 
pushup :=true; 
split(x,xr,p,k,x,xr); 
end 
end 


end; 


procedure insert (newkey:integer;var root:pointer) ; 
var 
pushup : boolean; 
x:integer; 
xr,p:pointer; 
begin 
pushdown (newkey, root,pushup,x,xr) ; 
if pushup then 
begin 
new (Pp) ; 
with p^ do 
begin 
count:=1; 
key [1] :=x; 
branch [0] :=root; 
branch [1] :=xr; 
root:=p 
end 
end 


end; 


procedure remove (p:pointer;k:position) ; 
var 
1i:position; 


begin 
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with p^ do 
begin 
for i:=k+1 to count do 
begin 
key [i-1] :=key[i]; 
branch [i-1] :=branch [i] 
end; 
count :=count-1 
end 


end; 


procedure successor (p:pointer;k:position) ; 

var 

q:pointer; 

begin 

q:=p^.branch[k]; 

while q^*.branch[0]<>nil do 
q:=q^.branch [0]; 

p^ .key[k] :=q^.key [1] 


end; 


procedure moveright (p:pointer;k:position) ; 
var 
c:position; 
begin 
with p^.branch [k]^ do 
begin 
for c:=count downto 1 do 
begin 
key [c+1] :=key [c]; 
branch [c+1] :=branch [c] 
end; 
branch [1] :=branch [0] ; 


count :=count+1; 
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key [1] :=p^.key [k] 
end; 


with p^.branch [k-1]^ do 
begin 
p^ .key [k] :=key [count] ; 
p^.branch [k] ^.branch [0] :=branch [count] ; 
count :=count-1 
end 


end; 


procedure moveleft (p:pointer;k:position) ; 
var 
c:position; 
begin 
with p^.branch [k-1]^do 
begin 
count :=count+t1; 
key [count] :=p^.key [k] 7; 
branch [count] :=p^.branch [k] ^.branch [0] 


end; 


with p^.branch [k]^ do 
begin 
p^ .key [k] :=key [1]; 
branch [0] :=branch [1] ; 
count :=count-1; 
for c:=1 to count do 
begin 
key [c] :=key [c+1]; 
branch [c] :=branch [c+1] 
end 
end 


end; 


procedure combine (p:pointer;k:position) ; 
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var 
c:position; 
q:pointer; 
begin 
q:=p^.branch[k]; 
with p^.branch [k-1] do 
begin 
count:=count-1; 
key [count] :=p^.key [k] 7; 
branch [count] :=q^.branch [0] ; 
for c:=1 to q^*.count do 
begin 
count :=count+t1; 
key [count] :=q^.branch [c] 
end 


end; 


with q^ do 
begin 
for c:=k to count-1 do 
begin 
key [c] :=key [c+1]; 
branch [c] :=branch [c+1] 
end; 
count :=count-1 
end; 
dispose (q) 


end; 


procedure restore (p:pointer;k:position) ; 
begin 
if k=0 then 
if p^.branch[1]^*.count>min then 
moveleft (p,1) 
else 


combine (p,1) 
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if k=p^.count then 
if p^ .branch [k-1]^.count>min then 
moveright (p,k) 
else 
combine (p,k) 
if p^.branch [k-1]^.count>min then 
moveright (p,k) 
if p^.branch [k+1]^.count>min then 


moveleft (p,k+1) 


combine (p,k) 


else 


else 


else 


else 


end; 


procedure recdelete (target:integer;p:pointer;var found: boolean) ; 


var 


k:position; 


begin 


1f p=nil then 


found:=false 


else with p^ do 


begin 


searchnode (target,p, found,k) ; 
if found then 
if branch[k-1]=nil then 
remove (p,k) 
else begin 
successor (P,kK) ; 
recdelete (key [k] ,branch [k] , found) ; 
if not found then 
writeln ('Target is not found in the cuurrent node') ; 
end 
else 
recdelete (target,branch [k] , found) ; 
if branch[k]<>nil then 


if branch [k] ^.count<min then 
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restore (p,k) 
end 


end; 


procedure delete (target: integer;var root:pointer) ; 
var 

found: boolean; 

p:pointer; 

begin 

recdelete (target, root, found) ; 

if not found then 


writeln ('Target is not found') 


else if root^.count=)0 then 
begin 
p:=root; 
root:=root^.branch [0]; 
dispose (Pp) 
end 


end; 


begin {main program} 
new (root) ; 

new (targetnode) ; 
{new (p) ;} 

new (xr) ; 

new (yr) ; 

root:=nil; 


{root^*.count:=0; k:=0;} 


writeln ('1-->insert'); 
writeln ('2-->search') ; 
writeln (' 3-->delete'); 


writeln ('4-->exit'); 
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repeat 
writeln ('what do you want?') ; 
readln (no) ; 


case no of 


1: begin {insert} 

writeln ('enter newkey to insert in tree:'); 
readln (newkey) ; 

insert (newkey, root) ; 


end; 


2: begin {search} 

writeln ('enter number of key to search:'); 
readln (target) ; 

search (target, root, found, targetnode, targetpos) ; 


end; 


3: begin {delete} 

writeln ('enter number of key to delete:'); 
readln (target) ; 

{delete (target, root) ;} 

end; 


end; 

until no=4; 

if no=4 then 

writeln ('good by ..'); 
readln; 


end. 


3K XK XK 5K 3K 3K 3K 3K XK 3K 2K 3K 3K 3K 3K 3K 3K 2K 3K 3F 3K 3K 2K 2K 3K 3K 3K 3K 2K 3K 3K 3K 3K 3K 2K 2K 2K 3K 5K 
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| لھا نوه 
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المقدمة = YY‏ 
مقدمة إلى تراكيب البيانات سا ات س ت ت ت ت ت س ت ات اا ا ا ت ت ت ت ت ات ت ت تتت ت تات تات تتت تتت ۷ 
ه المعلومات والبيانات wo‏ 
ه العمليات التي يمكن إستخدامها لمعالجة البيانات س س ت ت ت ت ت تت ت تت ت تتت ۷ 
ه الهيكلية خاصية من خصانص البيانات سس ت ت ت س & 
ه أنواع هياكل البيانات س = 0 
ه شکل یبین تقسیمات هیاکل البيانات المختلفه ق 
الوحدة الأولى : 
السلاسل والمصغوفات VY wo Strings & Arrays‏ 
ەه (۱-۱) السلاسل و٣ A wooo St!‏ 
ه أهم العمليات التي يمكن تطبيقها على السلاسل _- 1 
String Storage Jwlاlwlلl jıjخî o‏ 5ة 5 55 QQ‏ 
ه طرق تخزين السلاسل 
-١‏ طريقة السلاسل ذات الطوdJ‏ lil|lبjJت Fixed Length String Method‏ 
ه عملية الإضافه ٣٥ا‏ seہ1‏ سس س س ت ت ت ت ت ت ت ت ت ت ت ت ت ت ت سد ٩‏ 
هد عملية دمج lwlwتةjı‏ ¬0ټConcatenati0 ooo‏ »¢ 
-٢‏ طريفقة إستخدام الجداول lاlمخغٳqرwسaw ---Index Table/ work Space Method‏ 1۱ 
-٣‏ طريقة القوانم اlلمتنصal Linked List Method‏ ج 
ہ (۱-۲) المصغوقات )Y wm Arrays‏ 
ه أنواع المصفوفات كمم رآ —— 
ەه الصيغه ×ھSy۷"t‏ ق 
ه )١(‏ المصفوفة أحادية الأبعاد — 
ه تمرین (۱) a‏ 9 
ه حل التمرین === ¶1 
ه (۲) المصفوفة تنانية الأبعاد س ت ت ت ۷ 
ه إحراء عملية الضرب =a‏ 9 
الوحدة التانية : 
wlجlڻتٽ YE === Records‏ 
ه التصريح عن السجلات سا ت ا س س س ت س ت ت ا ت ت ات ت ت ا ت ت ت ت تتت تت ت تت تت تت تست 9 
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: الوحده التالثه‎ ٠ 


الملفات کا۴ === EV‏ 
ه أنواع الملفات 0 
ه خطوات التعامل مع الملف المنطقي === EA‏ 
ه تمرین (۳) === OY‏ 
ه حل التمرین === OY‏ 


۰ الوحده الرابعه : 
مقدمة عن المؤشرات واللوائح المنعلقa -Overview to Pointers & Linked List‏ *1 


ه )5-١(‏ مقدمة عن المؤشرات )1 
ه الصيغة العامة = 11 

ه (2-۲) اللوائح المنغلغa Linked List‏ 1 
ه الإعلان عن عقدة مكونه من حقلين 1 

ه إنشاء اللائنحة المنغلقة وخوارزمية الإنشاء 1E‏ 

ه إضافة عقدة حديده وخوارزمية الإضافة س === 10 

ه خوارزمية حذف عقدة من اللائنحة المنغلقه = 1V‏ 

ه البحث عن عقدة في اللائحة المنغلقه وخوارزمية البحث _- ت 

ه طباعة محتويات اللانحة المنغلقة وخوارزمية الطباعة == 1۹ 

ه من أهم إستخدامات ال ءا )ہنا أو مميزاتها === VN‏ 

ه٠‏ الوحدة الخامسة : 

المكکدساتٽت Stack‏ ااا 

N) === Stack Using Array (0-۱) o 
N) === ۲٥م ه میزة ال‎ 

ه العمليات الأساسية للمكدسه = N)‏ 

ه إستخدامات المكدسات === N)‏ 

ه الإعلان عن المكدسه _- 


DATA STRUCTURES PASCAL | Safiya Najeh 


AY == Empty aJlıJl o 
NY === Full ه الداله‎ 
NY = ه خوارزمية الحذف من المكدسه‎ 
NE == ه خوارزمية الإضافة للمكدسه‎ 
NE === ه عملية تحديد العنصر العلوي في المكدسه‎ 
NO === ه عملية التهينة للمكدسه‎ 
NO === ه عملية الإضافة لجمع آخر عددين في المكدسه‎ 
N === ه عملية )>هاsئلddج لجمع حميع عناصر المكدسه‎ 
N === ه عملية الطباعه‎ 
AQ === Stack Using Pointer (O0-T) o 


: الوحدة السادسه‎ ٠ 


تحويل التعابير الحسابية وإيجاد قيمها TE‏ 
ه الطرق التي تستخدم لتمثيل التعابير الحسابيه E‏ 
ه التحويل إلى صيغة ال ×ا۴f†ءمم‏ وھ ت و کک ف 
ه الأولويات للمعاملات س ت ت ت ت ت ت ت ت ت ت ددد ٩0‏ 
ه الخوارزمية التي تستخدم لحساب قيمة التعبير کا 


: الوحده السابعه‎ ٠ 


الصغفوف sعuعمQu‏ س === ۹ 
ه تعريف الصف aaa‏ ¢ ¢ 
ه أنواع الصفوف في باسكال س ت 8 ¢ ) 
ه العمليات الأساسية التي تجرى على الصف _ 
ده بناء الصغفوف بإاستخدام lالمصغوlت --Queue Implementation Using Arrays‏ )1*۱ 
ه الإعلان عن الصف e a‏ 
maa Empty aJlıJl o‏ 18 
ه الداله Full‏ ن 
ه عملية الإضافه ٤۲ئ1 e‏ | 
ه عملية الحذف عاء‌امD e‏ | 
ه عملية النهيiة e === Initialize‏ | 
ه عملية الطباعه yرهامءا5‏ === ef‏ 
ه تمرین el === )٤(‏ 
ه حل التمرين ۵۷ ) 
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الوحده التامنه : 


خوارزميlت‏ l|lبحù 0V === Searching Algorithms‏ 1 
ه )۸-١(‏ خوارزمية البحن lالخطضر„ OA =============mmomomomommmn Linear Search‏ 
ه تمرین E======mmmmm )٥(‏ 
ه حل التمرین ا ا ا ا 

ه (۸-۲) خوارزمية البحنث |الiنlئĞي (A= Binary Search‏ 
ه تمرین (1) === 1V)‏ 

ه حل التمرین 1A‏ 


الوحده التاسعه : 


) VV=========mo Sorting Algorithms بيترتl|l‎ تlيمزjراوخ‎ 

1 VA======-== === Internal Sorting Algorithms يزJلJلخlدلJl ہ (۹-۱( خوارزميات الترتيب‎ 
) VA============mooo Bubble Sort عlةغلJl‎ بيترتll‎ (۹-۱-۱) o 
ه خوارزمية الترتيب بالفقاع ت‎ 

YAY === amma )۷( ه تمرین‎ 

AY a o ه حل التمرین‎ 
(AA==============mmomommmo— Selection Sort رlaةخإلl‎ بıتةرتll‎ (۹-۱-۲) o 

ه خوارزمية الترتيب بالإختيار LS ss EET‏ 

\ QA==========mm momo Insertion Sort JlëدإJl‎ بيترتll‎ (۹-۱-۲۳) o 

ه خوارزمية الترتيب بالإدخال ي ق 

Y8 === Sheإ|‎ S0 الترتیب بالتجزنه‎ )٩-۱-٤( ەه‎ 

ه مراحل الترتیب بالتجزنه === ¢ Y‏ 

YT) 1= Quick Sort gwll الترتيب‎ (۹-۱-۵٥( 

ه خوارزمية الترتيب السريع U EES E‏ 

ہ (۹-۲( خوارزميات الترتیب lالخlارۍجJضي External Sorting Algorithms‏ 8 
ه الدمج الننانئûي Merg Sort‏ ت ت ت ت 8 YY‏ 


الوحده العاشره : 


الأشجار YE ۲res‏ 
ه )٠*-١(‏ مقدمة عن الأشجار كبنية بيانات ت ت د ۵ 0 
ه تعریف س س ت ت ت س ت س ت ت ت ت سات سا ت ات ت تات سات ت ت ت ت ت ت ت تت ات ات ت تات ت تت تت ت ت تت تت تت ست ۷ 

Y0) === Degree of tree ةرجشll ه درجحة‎ 

YO) ============mmmmmmm mmm Level of r‌عع ه مستوی العقدہ‎ 

YO) === Height of tree لشجرة‎ عاlخغترإ‎ 
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YO) ia Forest aڊléJl‎ o 

ه )٠١-۲(‏ أنواع الأشجار === YO)‏ 
ەه (۲-*() الأشجار lلliiئيa Binary Tree‏ س ت ت ت د ۱ ۲۵ 
ه تعریف === YO)‏ 

YOY========m om Binary Search tree ةıئliill‎ ûنحıبلاl ه شجرة‎ 

ه تعریف === YOY‏ 

ه تمثيل شجرة البحت الثنانية في باسكال YOY‏ 

ه إنشاء عقدة في الشجره سس س ت ت ت ت ت ت === YOY‏ 

ه إضافة عقدة إلى شجرة البحث الثنائية YO E‏ 
ه البحث عن مغتاح في شجرة البحث الثنائيه YOO========‏ 

ه حذق عقدة من شجرة البحث الثنانيه YOO‏ 

ه طباعة محتويات شجرة البحث الثنائية اا 

YO Balanced Tree (B-Tree) aijlginJl رlجشJl‎ ()*-5) o 
YO Q-============== ه مقدمة عن الشجرة المتوازنه وتعريفها‎ 

ه مميزات الشجرة المتوازنه YO‏ 

ہ إستعمالات ال Te 8-۲ ۲e٥‏ 

ه الفرق بjı Balanced Tree J|‏ و Binary Tree‏ ا ا ی ا ا 

ه عملية البحث وخوارزمية البحث — و 

ه عملية الإضافة وخوارزمية الإضافة TITS‏ 

ه عملية المسح وخوارزمية المسح TI‏ 

TV === mmm B-Tree J| کود‎ 

۰ الخاتمه === TQ‏ 
٠‏ الفهرس ساس س ا س س س ت س س ت ت س ت ا ت س ت ت ت ا ت ت ات س ت ت ت ت ت ت ا ا ا ت ت تت تتت ت ت ت ت تت ت تت تتت [ ۹ 
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